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PREFACE 


This thesis and other reports, namely, 'Input and Output 
Facilities in PI 7044' and 'An Expression Processor for PL 7044 
describe in detail a compiler writing project for the language 
PL/I on the %stem IBM 7044. It has been the endeavour of the 
authors to present as much information about the Vc,rious aspects 
of the project such as formulation, coding, debugging methods 
etc. as is possible in a report of this nature. 

We have tried to cater to basically two different types 
of readers: the casual reader who is interested in a bird's 
eye view of the project but not in details and the serious 
reader who is planning to embark on a similar project. It is in 
satisfying the demands of the latter category of readers that 
this report nay be fotmd wanting by atleast some of them, 
because it is extremely difficult to recognise vdien one has 
given sufficient details about a particular strategy adopted 
and at the same time ensure that no redui:idancy has crept in. 

Also, since the project has been described in three separate 
volumes which are not necessarily logically independent, a 
certain amount of incoherency may be discernable. We teve tried 
to solve the first problem by illustrating all important aspects 
by suitable examples and hov/ the compiler goes about decoding 
them into MAP instructions. The second problem 1ms been partially 
overcome by providing a large number of Appendices at the end of 
each of the theses. 
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To enumerate systematically, Chapter I is an introductioi 
to the language'^tself . ?fe have obviously refrained from catalc 
guing all of the features of the language for this will entail 
a separate book by itself; we have instead highlighted those 
features v/hich give the language the beauty, the flexibility, thi 
power that is lacking in other high-level languages\ PL 7044, 
which is a fairly large subset of Pl/I is described in some 
detail in Chapter Il^^'^ere the emphasis is on the selection of 
the subset, the factors that influenced us in the selection and 
some interesting techniques adopted to implement powerful feature 
incorporated in PL 704^ 'Chapter III is a description of the 
First Pass Processor while Chapter IV contains a description of 
declarations, symbol table and attributes analysis routines. 
Chapter V deals with all the program control statements of PL 70 
except for the DO-statement , which is described in the report 
titled 'Input and Output Facilities in PL 7044 

'>^'IMs PL/I Language Specifications manual. Order No. 
GY33-6003-2, is the parent source of the S 3 rntax notation, Geneml 
Format, Syntax Rules and General Rules for various statements.'^ 

At the time of writing this report, coding and debugging 

I 

of individual routines comprising the compiler has been completed, 
although test running the routines together could not be carried 
out due to umvoidable circumstances. 
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SYNTAX ITOTATION USED 


1. Braces } are used, to denote grouping. Both vertical 
stacking of syntactical units and vertical stroke ha:/;- 
hecn used to indicate that a choice is to he iiB.de e.g. 
hoth 

( FIXED ^ 
identifier f f 

L float j 

and identifier ^EIXEDj FLOAT j 

have same meaning, i.e. ’identifier' must he followed 
hy the literal occurrance of either the word FIXED or 
the word FLOaT hut not hoth. 

2. Square brackets ^ j denote options. Anything enclosed 
in brackets may appear once oT may not appear at all. 

3. Three dots ... denote the occurrance of immediately | 

preceding syntactical unit one or more times in 
succession. 

Lower case letters are used to show nonterminal (syntactic] 
variables where as only CAPITAL letters are used to 
construct a terminal variable. ; 


4 . 



CHAPTER I 


07ER7IEW OE THE PL/I LAHGUAGS 

1 . PL/I; An Iptroduction : 

1.1 Why PL/I : 

The rapid growth of the computing machinery during the 
past two decades has neces stated a constant re-evaluation of 
the means by which the digital computer could be put to efficient 
use in the service of mankind. This is especially true in the 
field of language development. A consequence of this development 
has been PL/I - a language designed and promoted by IBM. Today 
'S'L/l is a fairly well established langixage and is fast gaining 
currency among users of IBM as well non-IBM equipment. Chief 
among the reasons for its success has been the fact that IBM 
have gone to great lengths in making the language versatile 
and useful to a wide range of computer users and at the same 
time making each class of users feel that the language has been 
tailored to its needs. This is not to say that PE/I has no 
shortcomings. To date, PL/I has not been implemented in toto 
on any digital machine and this is reflective of the practical 
difficulties in writing efficient compilers for PL/I. However j 
fairly large subsets have been introduced on IBM machines and 
whatever may be ones reservations about it, one has to learn 
to use PL/I if one wishes to take advantage of the large number 
of scientific and commercial programs written in PL/I. A logical 
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extension of this necessity is the availability of a PL/I 
compiler v/ithin ones reach. To provide such a compiler to the 
users of IM 7044 has been the gral- of Project PL/7044, 

"I • 2 PL/ 1: Its Philosonhy- 

In order to appreciate how PL/I is different from other 
high level languages it is necessary to examine the goals of the 
designers. These were a) to serve the needs of an unusually 
wide spectrum of users - scientific, commercial, real time and 
systems programmers - and to allow both the novice and the 
expert to find facilities at his own level b) to design the 
language such that programs could be written in accordance with 
the natiiral description of the problem it is supposed to solve 
so as to minimise coding errors and c) to provide a language for 
implementing present and future generations of compilers, monitors 
and the like - the question here being not so much of ’Gan we 
write PL/I in PI,'^-' (we certainly can) but of ’Can we ’write in 
PL/I a real time operating system to support PL/I program'. 

Hot all of the above goals have been achieved in PL/I nor 
can it be said that any one of tliora has beeii completely achieved, 
but it does equip the user wirh tools that are not available in 
any other high level language. 

In aiming for the goals enunciated above, certain princi- 
ples were laid dovna which formed the framework of the new language 
and every feature of the language was motivated by one or more 
of these principles. 
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These principles were 

(i) Anything goes: The new language PI/I should have a 
liberal semantic structure. If a reasonable interpretation can 
be given to a particular combination of symbols then it should 
be allowed per se by the language, A PL/I compiler should not 
have too many permissive diagnostics ( '• This is y/rong but I am 
smart enough to Icnov; what you really mean"), on the other hand, 
it should have warning messages '( " Do you really want this to 
be done in this strange way”). Such messages will enable compa- 
tibility among different implementations. 

•(ii) Pull access to machine and system facility: This is a 
particularly useful guidline in so far as systems programmers 
are concerned but very difficult to achieve in practice. 

(iii) Modularity: 'If you need it, it is there, but if you don't, 
you don't have to know about its existence". This was the moti- 
vation behind giving every name, every option, every facility a 
default interpretation which is so chosen that it is likely to be 
the one required by the user who is unavyare that alternatives 
exist. However, one has to pay a penalty for this kind of a 
design, for if one forgets to assign an attribute other than 

the default attribute, no diagnostics will be provided. 

(iv) Relative machine independence: Although this is a sound 
principle in itself, it is also one that moat formula tors tend 
to overlook. The makers of the PL/I language have achieved a 
measure of success in this area but even then PL/I is not 

1 
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altogether free of this shortcoming. In fact it does tend to 
reflect the organisation of the IBM 360 family of computers, 
particularly in the field of data structures. 

(v) Catering to the ..novice: More than one method of specify- 
ing a particular problem is made available to cater to the needs 
of the novice. This v/ill enable the user to use the notations 
most familiar to him and at the same time allow the compiler to 
maximise efficiency of the most frequently used case. 

(vi) Choice of Pl/l formats: 1 free format has been chosen 

to facilitate ease of coding and punching. 48 and 60 character sets 
are provided so as to allow implementation on different machines. 

2. Pli/I: Some leatures : 

Por obvious reasons, it is neither desirable nor feasible 
to catalogue the large repertoire of PL/I features that have dis- 
tinguished the language from other high level languages. However, 
we shall attempt to highlight a few salient features that are 
mainly responsible for its enhanced status. 

2.1 Program Structure : 

2.1.1 Basic language Elements: 

As already mentioned Pl/I allows the program to be written 
in a free field format. The basic element is the statement 
v/nich is separated from another statement by the semicolon and 
is a combination of characters (from either the 48 or 60 character 
set). Thus a program is simply a string of characters with no 
internal grouping. 
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2,1.2 Groups: 


Art important aspect of PL/l program structure is the 
entity called GROUP. Quite often, in programming, we are faced 
with a decision structirce where the alternatives require the 
execution of more than one statement. In PORfRAN, either we use a 
subroutine or branch off to some other part of the program and 
then come back to the point from wtiere ?/e branched off. Both 
these methods are unsatisfactory the first because one may have 
to prepare the subroutine in the sense of providing^ it with the 
right type of arguments, initialization etc., while the second 
can become very clumsy if the decision mechanism requires nesting 
of such groups. The 'DO' statement in Pl/I can handle such situa- 
tions elegantly as the follov/ing example illustrates 

PORTRAIT 

IP(A.EQ.B) GOTO 10 

B=B-1 

li.—A.'h 1 

PRIM- 5 

5 PORiViAT (* a AM) B ARE HOT EQUAL *') 

GOTO 25 

10 READ 15,0 

15 i OBIvIAT (012) 

D:M*SQRT(C) 

PRIM 20,A,B,D 
20 PORI/IAT (3012) 

25 COM-IHUE 

PL/I 

IP A=B THEN DO; 

GET:LIST(C); D=A*SQRT(C) ;PUT data (B,C,D); 

EHD; 

ELSE DO ; 

B=B-1 ;-x=A+1 ■ PUT LIST (A AHD B NOT 1QUAL»); 

EilD; 
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ifotice that PL/l program does not contain any GOTO's, while the 
PORTRAK program has 2, 

The logical extension of the DO groups is in their use 
in repetiti-ve calculation. In this respect also, the PI/I DO 
statement turns out to he more pcv^erful than its .counterpart 
in PORTEAII. Por example, consider 

PORTSAN PL/I 

DO 10 1=1,200 DO:DO P=1.T0 100 EY 0.5 

IP(A.GE.B)G0T0 20 MIIE A < 3; 

P=I 

P=P/2.0 

ERD DO; 

10 COIOTINUE 
20 

Notice that a single statement in PL/I is equal to as many as 
4 in PORTRAIT in the abo'^.^e example. 

2.1.3 Compound Statements: 

Of the tv;o compound statements, namely the IP and ON 
statement v/e shall discuss the more important IP statement. The 
first example of the preceding section already contains a sample 
use of the IP statement, IP clauses can also be nested as shown 
in the example below: 

IF A>B THEM IP C<D TMli H' T THEN G=0 ; 

ELSE D=0; ELSE IP B<P THEN K=0; ELSE B=0; 

ELSE LB' P-H3<M THEN M=P+Q; ELSE T=0; 
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The equivalent PORIRAN program would he as follows: 

IPfA.LE.B)G010 1 
IP(C.GE.B)GOTO 2 
IE(T)C-OTO 5 
D=0 GOTO 4 
GOTO A 

3 0=0 

GOTO 4 

2 lE(E.GE.E) GOTO 5 
K=0 
GOTO 4 

5 B=0 
GOTO 4 

1 Ii‘((P+Q).GE.M) GOTO 6 

M=P+Q 
GOTO 4 

6 T=0 

4 COHTIIJDE 

2.1,4 Procedures and Blocks: In the hierarchy of PL/I program 

structure, procedures and "blocks occupy the top positions. In 
programming complex problems, it often "becomes necessary to 
execute a set of statements repeatedly with different sets of 
input data. Also it becomes convenient to delimit the scope 
of applicability or uniqueness of a name so that names may be 
non-unique within a program and yet be well defined locally. 
These two requirements have been adequately met in PL/I with 
the introduction of the block and proced;ire features. We shall 
first discuss the concept of the Procedure and then that of the 
block. 


Each procedure is surroixnded by its ovm header and trailer 
statements serving to identify the body of the procedure to the 
compiler. The label(s) associated with the procedure header 
is/are the one(s) by which it is referenced and is/are termed 
the primary entry point(s). A proced-ure may also have several 



secondary entry points from vdiere execution may be continued. 
Procedures are never executed in sequence i.e. they must be 
invoked by a specific occurrence of the name of the procedure. 

All names encountered within the body of the procedure are not 
'knovni' outside the procedure except when they are given the 
attribute ECTEBIIAL. Procedures may be stacked one after another, 
each forming a separate entity by itself or they may be nested. 

In the former case, they are knovm as external procedures while 
in the latter case they are known as internal procedures. Exter- 
nal procedures are similar to EORTRiU subroutines in the sense 
that they can be compiled separately and used with different 
programs. But the similarity cannot be carried much further be- 
because, as we shall see presently, the procedure concept is a 
much more powerful concept than the subroutine feature. Exter- 
nal procedures may be invoked from any point in a program whereas 
internal procedures can be invoked only if the immediate prede- 
cessor is active. Eurther, the procedxxre may be classified as a 
subroutine procedure or a function procedure depending on whether 
the referencing is by a call statement or by its occurrence as 
an operand in an expression. 

Ihe ’block’, also called a 'begin block’, is mainly used 
for delimiting the scope of names in a program. They are struc- 
turally similar to procedures but cannot be invoked from out- 
of-line and can be entered strictly in sequence or by a GOTO 
statement whose destination is the label prefixed to the block. 
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Like the procedure the "block has its own header and trailer 
statements. 

The block and procedure form a powerful set of tools 
in the hands of the PL/I programmer. But one has to exercise 
caution in the ma,nner in which the "block or procedure is invoked 
in order to ensure that proper transfer of information takes 
place at the time control is transferred from one procedure to 
another. 

Both the parameter list and the argument list should 
normally "be accompanied by wtoat are knovm as specifications 
which assign attributes to the arguments and parameters. If 
specifications are not provided, PL/I will assign default attri- 
butes, but in many cases the default mechanism may be inadeqmte 
and may lead to error conditions. Por example, consider: 

P:PROCEDURE (A,B,C); 

* 

E!ID P, 

Since nothing has been specified about A,B,C they will 
be assigned default attributes in accordance with the rules of 
PL/I. When P is called from some other point, the attributes 
of the argument are, in general, not checked, unless explicitly 
told to so, to determine if they match those of the correspond- 
ing parameters of P. If checking is done, and if there is a 
mismatch, then conversions v/ill be attempted which may not be 
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always successful. It is safe, ttiercfore, to ensure that either 
the attributes of the arguments and parameters match or if con- 
version is to be allowed, explicit directives are given to the 
compiler so that conversion takes place along predictable lines. 
IVhen arithmetic expressions are used as arguments, it is likely 
that the attributes of the result do not match those of the 
parameters of the called procedure. In ord« 3 r to avoid unpredic- 
table conversions, PL/I allows the programirer to issue directives 
to the compiler in what is knov/n as an EHHTRY list which specifies 
the attributes of the argument expected by the called procedure. 
Por example 5 consider, 

Q:PROCEDURS(K,H,L); 

DBCIAKE M CHkJLiCTER-lJ FIXED, 1 BIT; 

DECLARE P ENTRY (FIXED (5,10),FL0AT (8,4), 

CHARACTER ^5): 

CALL F(II,N,L); 

GALL P(,(M*M)^ li/N, ,L-4l,l+N) ; 

EHd'q; 

In this case the entry list gives a complete idea of vshat P 
expects and therefore at the time P is called, the conversion 
will be performed, if necessary, to the respective targets. This 
avoids unpredictable results late*. 
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Procediu?es may be referenced recursi'vely by assigning the 
RECURSIVE attribute to the procedure name. The following procedu. 
which can be used for calculating the factorial of an integer, is 
an example of a recursive attribute. 

PACT: PROCEDURE (N) RECURSIVE; 

IP S=1 THEN RETDRI'T (1); 

RETURN (PACT (N-l)i--N); 

EHD PACT; 

let us v/ind up our discussion on procedures by describing 
by vjhat is definitely one of the most powerful features of the 
language, namely the GEliSRIC attribute. Sometimes it is necessary 
to have a set of procedures each of w’hich is to be invoiced for 
each of the several types of arguments. Trigonometric functions 
operate in this manner. Also the procedure to be invoked may 
depends on the number of arguments. There can be a function pro- 
cedure which evaluates the roots of a polynomial. The coefficient 
of the polynomial are to be supplied as parameters. Now for poly- 
nomials of 1st, 2nd and 3rd order, simple formulae are available. 
Thus , for example , 

IECImUIB SBT GENERIC (3IH1 V»HE;I(i{EA 1) , 3IN2 IffiEN (COMPIEX)); 

DSCItaRE ROOTS GENERIC (R00T1 WHEN (*,*), R00T2 YdiEN (*,*,*) , 

R00T3 WHEN 

The TOEN clause determines which alternative is to be 
selected ^'dien the generic family name is referenced. 



2.2 Data Structiires: 


2.2.1 Data Organ isati on 

Any infornation that is manipulated by a program may be 
termed 'DATA*. Data is organisationally divided in PL/I into 
scalar data items and aggregates of data items. 

Scalar data may be either constants or variables as in 

any high level language. As far as arithmetic constants are 

concerned, there is not much difference basically between PL/I 

and PORxBAD except that in PL/I one can direct the compiler to 

store the constant in a particular fashion (i.e. DECIMAL or 

BINARY format, FIXED or FLOATING representation etc.). A 

generalized example would be -10.2367 .F-03Y(8, 2)1, which means 

that the Fortran constant -10.2367x10“^ must be scaled by a 
2 

factor of 10 , represented to 8 positions of precision in binary 
form, and is to be treated as an imaginary constant. 

Scalar variable items are also stored in accordance v;ith 
the scale, mode and precision attributes assigned to them. 

Data aggregates may either be arrays or structures or 
as extended array of structux-es or structure of arrays. While 
Fortran users are familiar v/ith the notion of an array, the 
structure concept is unique to PL/I and is not available in 
Fortran or Algol. Although some structuring is allowed in 
COBOL, it is relatively prjjmitive. 
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A inajor difference between PORPEAIJ arrays & PIi/I arrays 
is the manner in ?/hich they are stored. In PL/I arrays are 
stored in row major order. Although this difference is un- 
likely to affect the normal PL/I usei’, a systems programmer 
should take note of this difference while manipulating arrays. 

A struct'ore in PL/I is a collection of data items among 
which a certain hierarchy is maintained. Ihe data items will 
in general belong to different data types. It is evident that 
structures may be ’contained’ in structijres. In other words a 
structure ma^r be an element of another structure. In such cases 
the parent structure is called the major structure while all 
other structures are called minor structures. An element of a 
structure may be an array whose elements themselves may be 
structures. A generalized example of a structure and the equiva 
lent tree is given below: 

LECIARS 1 X, 

2 1 ( 2 ) , 

^ 2 ( 2 ), 

3P(2,2), 

4 Q PLOAX 5 

3 R(2C) , 

2 S CflAEACIER(5) ; 

1 

2 Y*(l)";i*C? Z(2) " S* 

3 P(2,2) 'R*(20) 

! 

4 Q’' 

* 


Base Elements. 
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Note that leaves or base elements as they are called, can have 
attributes appended to them. Base elements should normally use 
qualifiers in order to make unambiguous references. Crass 

Gross Section of iirrays : 

The concept of cross-section of arrays is a logical exten- 
sion of the subscripting notation. Its meaning and use are best 
illustrated by an example , 

In the above statement, the left hand side is said to be a one 
dimensional cross-section of the 4 dimensioned array A. 

Its elements range from A(l,J,IC,lO to A(l,J,K,M) where R and M 
are the current lov/er and upper bounds of the 4th subscript. The 
dimensionality of the cross-section is determined by the number 
of asterisks appearing in the subscript list. 

Vfliile v/e are dwelling on the subject of arrays and 
structures, it is vorth while to discuss three features of Pl/I 
which facilitate a high degree of manipulation with data aggre- 
gates. Ihese are the DSPIIiED, LIIdB a.nd BY IIAI.IE attributes. 

DEFIilBD Attribut e: 

Although the DEFIKEB attribute may he used with scalar 
data items also, it is more useful in the case of data aggregates. 
Quite aften, programming situations demand that we be able to 
refer to a piece of data by more than one name. Phis is done by 
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declaring the ■variable in question in the usual manner and then 
following it up with a 'Defined' attribute and the name of the 
•variable v/ith which o^ur original variable is to be synonymous. 

Consider the statement DilCIiPS A(10,10), B(10,10) 

D^II'JED A; this will cause the compiler to allocate space for A 
but for B it will not allocate any space. Bach reference to B 
v/ill be treated as a reference to A. Ihus A is the defining 
variable ■while B is the defined variable. It is not necessary 
for B to have the same dimensions of A. Por example one can write 
DECLAPvE A(4,5), B(3) DBPIMED .A( 1 , 1 ) ; which were result in the 
following equivalences, 

[(A(i,1),B( 1 )), (A(1,2),B(2)), (A(1,3),B(3))] 

There are a few restrictions on the declaration of B and A.ier 
Por instance B should have the same attributes as A, A itself 
cannot be a cross-section of some array, and A itself cannot 
be defined in terms of some other array. 

In cases 'where the dimensions of the tv/o arrays involved 
in a DEPUTED attribute, do not -fnatch, care should be exercised in 
avoiding extension of tne defined array beyond the bounds of the 
defining array. 

Even more complicated relationships may be set-up between 
the defined and defining array with the use of 'iSUB' feature. 

This is best illustrated by an example, 

DECLARE A (20) , 3(l0) DEPUTED A(2-«-1 SbB-l ) ; 
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We calculate the relationship between A and B as follows: 

B(l) i:: A( 2*1-1) P^-ii(l), 3(2) -^w(2*2-l) =i.(5), 

B(3) -■! A(2*5-1) ~ A(5) , B(4) H il(2*4-l) “r A(7) 
and so on. 

The expression inside the parenthesis specifying the 
relationship can be any scalar expression in ’iSUB* v/here 
'iSlIB' denotes the value of the i-th subscript in the defined 
array, i taking values from 1 to n when n is the number of 
dimensions of the defined array. One can easily visualize 
how this feature can be put to use .in several programming 
situations. For instance, one can selectively operate upon a 
matrix to obtain certain results, or one can use the ’iSUB’ 
expression as a sort of code which when used to select elements 
in a matrix will reveal some intelligible information. A person 
who does not Icnoy; the code cannot extract the information 
although he may have access to the matrix as a whole. This is 
particularly useful in a time sharing environment where many 
customers may have access to certain files. 

Just as ’defined’ attribute could be applied to arrays, 
so can they be used ’vith structures. Entire structure or part 
of structures may be given alternative names by the use of the 
DEFIliEI) attribute. 

Consider the example, 

BECIu-JlB 1 A, 2 B GHAK(4), 2 G CHilR (5), 2 D GHAE (8); 

DECl^iEE E CHAR (l?) PEFIilED A; 
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Ttoen reference is made to E, the 17 characters allotted 
to the structure k will he involved. Here we see that a hyte 
oriented machine has been implicitly assianed although the 
design guide lines call for complete machine independence. Thus 
features such as these v/ould be difficult to implement in a 
word oriented machine such as the IBM 7044. 

LIKE iit trib ute : 

Erequently, we find that two structures have the same 
hierarchy and the elements have the same attributes. In such 
cases it would be tedious to declare the two structures sepa- 
rately and in full especially wiiSn the tw'O structures have 
many minor structures and base elements. Y/ith the LIKE attri- 
bute it is possible to use a short hand notation for all but 
the first structure so declared. L very good example * would be, 

DEGLAKE 1 S0.IP , 2 HAMS, 3 CIL'Jl (5), 

3 TECH CHAR (8) , 

2 DATE, 3 MOUTHS EIXEID (2), 

3 DMf FIXED (2), 

3 YE^IR, 4 decade FIXED (1), 

2 IHTSHTORY, 3 LilRGE, 4 30Xi^ FIXED (5), 

4 BOXES FIXED (6^ 

3 &IAIFT, 4 B0X7T FIXED (5), 

4 BOXES FIXED (6), 

3 king, 4 EOXvVT FIXED (2), 

4 boxes FIXED (6); 

Ho?/ if we had another product, say CAKE LUX which had similar 
structure, we could simply write, 

DECLARE 1 GAKE_MIX LIKE SOiDP; ^ 

Even if only a part of a structure batches with the structure 
in hand, we could still use the LIKE attribute. 
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Just as in the case of the DEPIIfflD attribute the LIKE 
attribute cannot be carried over more than one level. Thus in 
the above example SOAP itself cannot be ’likened’ to some another 
structure . 

BY hmiE Feature : 

Manipulation with structures can be made selective with 
the help of the BY EAIffi feature. In this case manipulation on 
the set of base elements will take place only if at every level 
from the base upto the root (excluding the root name) the names 
of the nodes match. As an example consider, 

BECIABE 1 a, 2 A1, 2 B1, 5 D1 , 2 01, 3 K1 , 

1 B, 2 01, 3 K1, 3 B1, 2 A1, 2 B1, 

1 0, 2 A1, 2 01, 3 K1 , 3 B1, 4 B1 ; 

Now, A = B + 0 BY NA1.IE; would result in 

A.AI = B.AI 4- 0.A1; and 
A.C1.K1 = B.C1.K1 + C.C1.E1; 

2.2.2 Data Types : 

We have so far discussed data on the basis of their organi- 
sation in the computer and a fev; related attributes. We shall 
now turn our attention to data classified according how a PD/I 
program operates upon them. Under this classification we can 
talk of Problem data types and Program control «5ata types. 

Problem data consists of Arithmetic and string data 
types. Every data item which is of the arithmetic type is 
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is assigned a base (or radix of 2 or 10) , mode (real or complex) 
and a scale (fixed point or floating point) and a precision which ; 
is machine dependent. As has been stressed earlier, these attri- : 
butes, can either be explicitly specified by a declaration or 
they will be assigned default interpretations. We can also 
specify a PICTOPE attribute in which a numerical interpretation 
will be given to data, stored in character or bit string format 
as opposed to coded format of non Picture arithmetic Data described 
earlier, A data item which has the PICTURE attribute is complete 
in itself and does not require any other attributes of mode, scale 
etc. to be assigned to it. The motivation behind the provision 
of PICTURE attribute is that commercial computation requires not 
only considerable editing, but also of late, substantial amount 
of numerical calculations. This is one of the facts overlooked 
by designers of other higher level languages. Algol and Fortran, 
which have powerful arithmetic fa.cilities have poor editing cha- 
racteristics vdiile COBOL has good editing facilities but rigid 
arithmetic. It is appropriate to mention that whereas in PI/I 
attributes are listed for each variable or for groups of variables, 
in Fortran and Algol, declarations are made according to data 


types, 


EORTRAII 

EgEGER A,B,C 

DEIEil SIOIT x.(lO),B(lO,lO) 

RIl^L I 

OOIMQN /COM/ 1 
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PL/I 

DECLARE U(10), E(10,10),C) PKED (8,0), 

I ELO^T (8,5) EXIERILIL; 

String Data may Le classified as character strings or 
bit strings. String data are characterised by their length 
which may be fixed or varying during a program. Wl^ile charac- 
ter strings usually find their use in editing results of arith- 
metic computation, bit strings play an important role in perform- 
ing logical decisions in a, PL/I programs. Consider, for exam- 
ple the ^iLGOL program 

A: = IE C IHEIT E ELSE D; 

In PL/ 1 the sam.e program may he written as, 

A = B'*C + D* (NOT C); 

Here C is a bit string of length 1. fmother important use 
of bit string in PL/I is for systems programmers. Languages like 
Eortran and Algol have no bit manipulation capabilities per se. 
There are many built in functions in PL/I for string data which 
allow considerable manipulation and editing operations v/ithout 
having to resort to unnatural methods as in lORI'RAl'I. 

Let us briefly discuss the other major data type, namely 
the Program Control Data Types. Any data that ca.n be classified 
as label, entry, task, event, pointer, offset or area type can 
be regarded as Program Control Data, We have already discxissed 
entry data type under program structure. POINTER, OEESST and 



OP- 21 


AREA variables are discussed under 'list Processing facilities* 
while TASK and EVENT are discussed under 'Asynchronous Opera- 
tions' in this Chapter. 

Label data itens may be constants or variables, label 
constants are used to identify statements (similar to statement 
numbers in EORTRAN) v/hile label variables which could be arrays 
or scalars are used to perform program controlled transfers. A 
label variable has, at any stage in the program, as its value 
a label constant v/hich may then be used as the destination of 
a GOTO statement. These label variable can be used to perform 
a function similar to computed GOTO in Fortran, although they 
(label variables) are much more versatile than just computed 
GOTOs. For example, 

IIAIN; PROCEJURB OPTIONS (ilAIN) ; 

DECLARE (1, ail) (3) LABEL, (M,N) INITIAL (l); 

L; I=(M+3*N)/3 

L(I)=ML(N); GOTO L(l); 

m 

M1(1): M=0; N=1 ; 

0 

GOTO 1; 

ML(2): M=-3; 1=3; 

• * 

GOTO L; 

ML(3): M=3; N=2; 


GOTO L; 
END IviAINj 
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2.3 Conversions : 

Consistent v/itn the philosophy of 'Anything Goes's PL/I 
performs a v/ide range of conversions in assignment statements, 

I/O statements, procedure calls etc. It is impossihle to cover 
all the situations where conversions take place, and hence we 
shall limit our discussion to certain basic principles underly- 
ing conversions. 

In arithmetic expressions, operations are alv/ays performed 
on coded arithmetic data only. If any of the operands is not 
so coded, it is first converted to coded form before proceeding 
with the evaluation of the expression. 

Effect of Conversion on Precision : 

If the precision of the operands in an infix operation 
differs, no conversion will be done. In case of floating point 
operations the result will have the precision of the greater of the 
precision of the two operands. In case of fixed point opera- 
tions, precision of the result depends on the type of operations 
and the precisions of the two operands. In every case any neces- 
sary truncation will alv*ays be made tomrds zero. 

Mode Conversion : 

Complex items v/hen converted to real mode, lose their 
imaginary part and only the real part is retained. When real 
items are converted to complex items, the result has a zero as 
the imaginary part. In mixed mode operation any real item 
will be converted to complex item. 
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Scale and Base Oonversion : 

Tbe conversions here are fairly involve! and no genera- 
lization can he made. Por particular cases, the specification 
manual* should he consulted. Conversions may also take place 
between arithmetic and string types of data or between character 
and hit string types. 

When hit strings are converted to character type then 
each hit is converted to the corresponding character and the 
result has a length equal to the original hit string length. 

Wlien character strings are converted to hit string the 
character string must contain only O's and 1's, otherwise ia 
conversion error will he raised. 

V/hen character strings are converted to arithmetic type , 
they may contain only those characters which can he coded into 
arithmetic form. 

WTaen hit strings are converted into arithmetic form they 
are interpreted as though the;/ viene unsigned binary integers. 

Arithmetic to character strings have no special properties 
and follow the rules of list directed I/O. When arithmetic data 
is to he converted to hit string, they are first converted to a 
real binary fixed point number. The hit string thus resulting, 
is left justified and has a length equal to the precision of the 
binary number into which the arithmetic item was first converted. 

*PI/I Lancua:, '^ Speoiiacaticns (IBM) Order Humber 0133-6003-2 



OP- 24 


2*4 Storage Classes irt PL/I : 

Pour classes of storage are possible in Pl/I, 

The AUTOilA.TIC attribute serves to denote the class of 
storage v;here the various data items are assigned storage only 
when the procedure in which they are declared is invoked. This 
type of storage is dependent on the logic of the program and 
is the normal or default class assigned to variables whose 
scope is iroiMAL or whose scope is unspecified. 

The STATIC’ attribute when assigned to a variable causes 
allocation of storage at compile time itself and such a data 
item occupies fixed locations in memory at all times during the 
execution of a program. This is similar to the storage alloca- 
tion of fortran variables and Algol’s OWN variables. If a data 
item is EXTERNAL in scope then it is asstaned to have the ’STATIC’ 
storage class if no other storage class is specified. 

The third type of storage class allows a programmer to 
allocate and free storage space according to his choice. Repeated 
allocations of such data items cause previous 'generations* to be 
pushed down so tnat the value of the variable available for 
manipulation is the one corresponding to the last invocation. 
Similarly the storage for a variable may be released or ‘freed’ 
repeatedly to access the older generations of the same variables. 
This class is known as the CONTROLLED class of storage and 
represents a significant departure from the conventional methods, 
of storage allocation of other high level languages. 
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The fourth class of storage is known as the BASED class. 
Every based variable has a pointer associated v/ith it called 
the pointer variable. ^ setting the pointer to different 
addresses in menory the value of the BASEL- variable can be set 
to the values of different variables. In other vrords, no memory 
storage need be allocated to a BASED variables, for it takes on 
the value of the variable currently pointed toby its pointer. It 
is mainly used in list processing and is described in Section 3. 

2.5 Data Transmission : 

PL/I provides a versatile repertoire of I/O instructions 
which to date have not been implemented in full in any of the 
machines built so far. This in itself speaks for the level of 
sophistication reached by the language as regards data trans- 
mission to and from the processor. 

The I/O in PL/I is designed to interact closely with the 
supervisory software under which it functions and to keep track 
of input sources and output destinations. 

Basically, there are two types of data transmission in 
PL/I - stream oriented and record oriented. 

Stream Oriented l/Q : 

In this mode of transmission, data is considered to be 
available in a continuous stream of information with no conceptual 
breaks. Thus, when a command is issued to *GET" a piece of data, 
then that piece of data is located from the input stream at a 
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point where the last cominand to input v/as terminated. Similarly 
when a command is issued tc 'PUT’ a piece of data on an output 
medium, then it will he wxitten from v/here the last PUT command 
ceased to v^-rite. notice the difference between fortran HS&D/ 
¥RITB statements and PL/I's GET/PUT command. In Fortran every 
REAE/’tlEiri'E command begins a new record, effectively teKainating 
the old record when the last EEAIi/’ffillTE command ceased to read/ 
•write.- 

The second mode of • transmission is known as the record 
mode of operation. In this mode, it is assiamed that data is 
prearranged in chunks of information which is then transmitted 
to or from the processor. The transmission does not involve 
any prior conversion of data, but is literal, whereas in case of 
stream oriented I/O conversion v;ill be performed. 

It is evident that record oriented I/O v/ill be faster 
since a) no conversion is performed and b) it explicitly recog- 
nises breaks in the incoming or outgoing data. Thus it is an 
ideal mode of operation when we are dealing with intermediate 
results which have tc be stored temporarily on secondary storage 
medium. The stream oriented I/O has also its advantages as it 
allows I/O to be performed v/ith or without editing and permits 
the novice to specify the actual names of the variables along 
with their values in the I/O data stream. 
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The File Concept : 

Although the file concept is familiar to most faPortran 
users, it is not quite the same in PL/I. A file in PL/I has 
a sjnnholic name just as any other ■variacle, (as opposed to 
Fortran files uhicr: are referred to lyy logical units) and can 
he broadly classified as Input, output or Update files. An 
input file may not he used as an output file and •vice versa. 

An update file can he usee! both as an input and output file. 

We shall conclude our remarks on PL/l I/O by 
stating PL/l file declarations do not carry any specification 
regarding symbolic or physical storage unit on Vvliich the file 
is to reside. They do -not even specify the type of storage 
medium to be used as repository of the file. All this must be 
kept track cf by the ei'.pervisory system. Thus in so far as I/O 
facilities are concerned a high degree of machine and configu- 
ration independence has been incorporated. But this has its oym 
problems in implement aticn as v/e shall see later. 

2 . 6 Asynchrono us One r atie ns in PL/ I: 

We shall nov; briefly touch upon the features in PL/I 
which provide for execution of a program as a set of asynchro- 
nous tasks. Provision is made for the following type cf 
operations: 

1. Creating and tenainating a task. 

2. Synchronising a 'task. 


« 
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3 . Testing y/hether a task is complete or not. 

4 . Assigning and changing priorities of a task. 

The definitions of the tem^i synchronous and Asynchronous 
operations are given in Appendix it , The reader is urged to 
clarify the meanings of these terns before reading further. 

Creating a Task : 

It is necessary for at least one task to exist when a 
PL/I program is started. This is called the major task. Tasks 
which are initiated by the major task are knovm as minor tasks. 

A task is initiated by specifying a TASK or EVENT and/or PRIORITY 
option y/ith a call statement. The procedure, thus called, will 
be executed asynchronously with the calling program. 

Example: DECLABE B TASK; 

CALL PROG (A1,A2,A3) TASK (B) ; 

* 

m 

# 

The execution of .the calling procedure is knoym as the 
attaching task and the execution of the invoked program is 
knoym as the attached task. 

Enquiring the status of a Task: 

DECLARE E 1 EVENT; 

CALL PROC (A1,A2,A3) TASK (B) EVENT (El); 
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When procedure PROG is initiated E1 is set to 0 and when tt" 
is completed, it is set tc 1. Thus the attaching a task can 
enquire about the status of the termination of Task B. 

TASK SYIJCKROKISATIOK: 

This is aonieved by means of the WAIT statement y;hose 
use is illustrated below 

P : PROCEBIIRE 

DECLARE DO TASK, (E1 , E2) ETEi'TT; 

CALL A TASK (DO), El/EITT (E1); 
y^AIT (E1); 

EIID*P; 

In the above statements, the main task procedure proceeds 
smoothly after initiating task 'DO’ until it encounters the 
WAIT' statement. Here further processing in the major task is 
suspended till task B is completed whence E1 becomes equal to 1. 

Terminating a Task : 

A task is terminated when the task encounters an EXIT 
or STOP or RETURK or EIID statem-ent. 

Priority in Asynchronous Operation: In many on line 
processing systems, situations may arise which compel a task 
to be suspended and vAiich require the execution of another task. 
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Such situations are handled in PL/I by assigning priorities to 
tasks. 

The priority for a task is set by the statement 

PRIOklli (task I’.ame) = expression; 
or CALL ?(A, B) lASE (l) PEIORIIY (exp); 

The expression in either case is evaluated and converted 
to an integer ^'rtiich is then assigned to the TASK as the priority 
of the TASK. 

2.7 Oompile Time Statements : 

In PL/l provision has been made to instruct the compiler 
to modify the source text before actually beginning the trans- 
lation. Such instructions are l-cnown as Compile Time Statements 
as they are executed at compile time itself. 

They are similar in structure to other PL/I statements 
and are distinguished by percentage symbol {%) before the state- 
ment beginning. The main set of instnxctions in this category 
are the DlOLilREj GOTO. IP j DO and the PROCBDURE statements. 

These statements ma.7 be inserted anywhere in the program. Each 
of the statement is illustrated by an example: 

Declare Statement ; 


^DECLARE A CHAR; 
^A = ‘ACHAITGED* ; 



This will cause every occurrence of A in the program 
to he replaced hy ’ACHAIIGED’ if this instruction is given before 
any usage of A in the program. Some times a single replacement 
may trigger off a chain of such replacements and hence repeated 
scannings v/ill be made till no further replacements are possible. 
Variables taking part in Compile time statements must be compile 
time variables and any compile time expression can contain 
only integer constants. 

Compile Time GOTO : 

Sometimes a portion of the text may not contain any 
compile time executable statements. In that case, or in case 
the programmer deliberately does not want certain compile time 
statements to be executed, he may use the GOTO statement. 

Example , 

MAUI sPEOGEDURE OPTIOiTS(MAIII) ; 

%S1 ; %S2 ; 

%!, : IF A+3=C THSK GOTO L1 ; 

ELSE % GOTO L2; 



OP-32 


The above example also shows the use of the compilex: 
time IP statement. Depending on the boolean value of (i.+B=C) 
either 11 or L2 is execiited. 

The Compile Time ‘DO* Group: This is usually used to 
minimise execution time at the cost of some more work 
during compilation and a little more obnect code. 

Example : 

foDO I = 1 TO 10 ; Modified Text 

X(I) = X(I)+1; X(1) = X(1)+1 ; 

; X(2) = X(2)+1 ; 

X(io)= X( 10 )+ 1 ; 

The DO index must be a compile time variable and the 
Y/HIIE clause is not permitted. 

The Compile Time Procedure: 

'ilhen the preprocessor v.hich handles compile time instruc 
tions, comes across a compile tinie procedure, it bypassos it 
entirely and resumes scanning ■ after the end of the procedure 
YTien a reference is made to that procedure in a compile time 
statement, then it v;ill be executed. Compile Time procedures 
may be invoked by non compile time statements also. 

Example : 

MfiJN: PROCEDURE OPTIONS (MIN); 

f.P:PROCEDURE (A,B,C) CHARACTER; 

RETURN (A ’+> B C) ; 

55BND ; 
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I = D+P(X,Z,10) ; 

# 

El© ; * 

Ihe preprocessor will replace fhe relevant statement ty 
Y = D+A+P4-10; 

5* PP/I and list Processing : 

Wnen PL/I va,s conceived of in late 1964, tbe originators 
had not included list processing facilities in the language, 
list processing facilities were added almost as an after thought 
sometime in 1965-66. The "based class of storage, as mentioned 
earlier, has great relevance to list processing. In the dis- 
cussion presented below, the reader is assumed to be familiar 
Vvith list structures. 

In lists, the underlying principle is to break the rela- 
tionship bet?;een physical and logical arrangement of certain 
items of data. In other vjords, we do net want to be tied down 
by having contig’aous chunks of storage space alloted to a set 
of data items. By removing this restriction, lists enable us 
to shift data around in a convenient manner. Whenever storage 
is allocated to a based, variable by an ALLOCATE statement the al- 
location of such storage (vdiich is different from previous 
generations) must be indicated by setting the corresponding 
pointer variable. For example, 

LBCLAI© B1 , 32 BASEL (POIHTR) ; 

ALLOCATE 32 SET (POIKTR) ; 
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The SEP key word is used to update the value of the 
pointer to the current storage address of the variable B2. More 
rigid control over allocation of based variable may be exercised 
by specifying an area vdiere allocation is to be made. This is 
done as follows, 

BECIuxEE ixPEA AUTOIilTIG (FIXED (10,0) . .PL0iT(8,5) , 

CH/Jl (30)...); 

This declaration reserves enough space for A to hold as many 
items as are specified within parenthesis. 

Hoy; if y;e allocate a variable in this area by 

ALLOCATE B2 IH ( 4 ) SBT'(POIIITR) ; 

this 'would cause allocation of B2 in A if there is enough space 
in A. If there is not enough space available, an error condi- 
tion will be raised. 

We shall illustrate the use of the above attributes in 

generating a unidirectional list by the following example, 

/* THIS PROCEDTJBE 13 USED TO APPEHD AT ELEiMEHT POINTED TO 
BY 'EP' TO A LIST YdiOSE HAT] 13 ’ELEliEHT’*/ 

LIST: PROCEDURE (BP); 

DECL/iPL EP POIHTR, 1 ELBI'ffllTT BASED (EP) , 

2 P POniTR, 

2 V VALUE; 

P=irJLL 

IF TAIL=NULL THEN HEAD ,TAIL=EP ; 

ELSE P(TAIL), TAIL=E?; 

BHD LIST; 

In the above example, the first time a call is made to LIST the 
HEAD and TAIL pointers are set to the first element. Subsequently 
the TAIL is moved to point to the latest element added while 
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HEAI) is undistiirlDed. Also the pointer P is correspondingly 
updated to form a unidirectional list. 

The Null built in function when used for initialization 
creates an empty cell and returns the address of the cell as 
its "value. When used in the IP statement, it is used to check 
whether TAIl is pointing to a null list. 

Yet another attribute which is useful in list processing 
is the OFFSET attribute. This is primarily used in conjunction 
wdth a based variable in a based area. 

For example, 

DSCIAEE ROOM AREA BASED (P1), 

RUSH OFFSET (ROOM), 

VAR FIXED (2) BASED (P2) ; 

AllOCATE VAR IN (ROOM) SET (P2) ; 

OFFSET will how contain the amount of offset between the start 
of the area ROOM and the variable VAR. 

OFFSET variables differ from POINTER variables in one 
important aspect and that is OFFSET Ivariable always gives the 
relative displacement while POINTER gives the absolute m/c 
address of a based variable. 

In conclusion we can say that in PL/I list processing 
can be done as elegantly as in any other language while retain- 
ing all the data manipulation capabilities of other high level 
languages. 
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OVER VIST/ OP I’HE PL 7044 GOI.gIIER 

This Chapter discusses the choice of a subset of PL/l 
the overall organisation of the compiler, its limitations and 
some techniques used in the implementation v 

• The Choice of a Subset : 

One of the first decisions that one has to take in a 
compiler writing project is the extent to which the implemented 
language is to be loyal to the original language specifications. 
It should be borne in mind that, more often than not, language 
specifications are made without considering the implementation 
hurdles that certain aspects of the language may pose on exist- 
ing machines. We wish to point out that Pl/I is not an excep- 
tion in this respect, rather, as has been . discussed earlier, 

PL/I is more machine independent than most other high level 
languages. Thus, one is left with the difficult task of prun- 
ing the original language, in order to inject a high degree of 
viability in the implementation of the language. 

Our decisions, in formulating the siibset of Pl/l, herein- 
after to be referred to as PI 7044, have been guided by the 
principle of maximising the number of user facilities in the 
subset. We set out by aiming for a full Pl/I compiler. As we 
met hurdles, we tried to overcome them, and if we failed for one 
reason or other, we dropped that featu3^ which caused the hurdle. 



OC-2 


Thus our method of attach has been 'to cross the bridge when 
we come to it'._ ¥e must admit that this method may have cost 
us in terms of a slightly inefficient code, and a rather unwieldy 
organisation. But the reader y/ill readily accept this line of 
approach if we set forth the constraints under which the imple- 
mentation was carried out. 

firstly, the time available to us was limited. It would 
have been difficult for us to complete the formulation before we 
started the coding. It was necessary for us to carry on formula- 
tion and coding side by side so that we could be sure that the 

f 

ideas vre put dovm on paper could indeed be programmable on the 
IBM 7044 without exceeding the limitations of the computer like 
memory space, execution time etc. Secondly the lack of previous 
experience in a project of this type, slowed down the progress 
to some extent. It v/as difficult to foresee problems before we 
were actually confronted by them. Lastly, the lack of detailed 
literature on implementation of the language on various machines 
forced us to constantly change our strategy on an ad hoc basis. 
This is one of the reasons why global optimisation and index 
register optimisation were not attempted. 

2. Organisation of the PL 7044 : 

2.1 Choice of Humber of Basses ; 

Compilers are normally organised in a number of distinct 
passes or phases, each phase carrying out a v/ell defined task. 

The choice of the passes is, then, crucial in determining the 



overall efficiency of code generated and the speed of the 
compiler itself. 'These two factors are contradictory in nature 
and usually a compromise is struck depending on the objectives 
of the designers. Those in favour of lesser n'umber of passes, 
often advance the argument that by ’doing as much as possible 
in a single pass' one reduces the book-keeping involved and 
avoids the problem of evolving suitable intermediate codes 
betvreen passes. Also the fewer the number of passes, the lesser 
the quantum of I/O activity, in general, and to that extent the 
compilation is faster. Following this line of thought, a two 
pass compiler was contemplated for PL 7044- But .very soon it 
was found to present ins-urmountable hurdles as outline'd ‘in the 
next section of PASS 1. It is worth while to mention here, 
some of the advantages that accrue from a multipass compiler. A 
rule of th'umb suggests that the greater the number of passes 
the more efficient is the code likely to be. Also, sometimes 
larger number of passes may be the only feasible answer to 
implementation of certain high level languages like PL/I, COBOL 
etc. on machines having small fast access memory and a large 
uot-very-slow secondary memory. For example, if one were to- 
try and implement PL/I on an IBM 1620 m/c it would be fair to 
guess the number of passes at around 20 or more ! On the ISI 
7044 it was finally decided to divide the compilation work into 
3 passes, the descriptions and necessities of which follow^- 
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2.2 Pass I: 

The primary aim of the first pass is to resolve certain 
apparently ambivalent situations in the program text. To make 
the point clear let us consider the following examples, 

Example 1 PROG-RiK R PR0GRAI4 B 

• • 

• « 

2+3«I •• •• 2+3 • +I • . 


In PROGRiRi'l A '2+3.1' denotes a complex constant, whereas 
in PROGRAM B we have a simple addition of a 2 real constants 
and a variable I. If we wish to resolve the uncertainty at 
lexical level, it would he necessary for the lexicon to look- 
ahead as many as 3 lexical units ahead every time it encounters 
a simple constant. This will slow down the otherwise fast 
lexicon. 

Example 2: 

DECLARE (REAL, INTEGER, COIfflEX) STATIC; 

DECLAIE (REAL, INTEGER, COIIPLEX) =0; 

As PL 7044 does not have any reserved ssanhols hut only 
certain key words which could he used as ordinary identifiers 
also, in the above example it is impossible to say anything 
about the nature of the statement till we encounter the '=' 
sign or the keyword STATIC. It would be illogical to argue 
that the symbol table will come to our rescue in such situations. 
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Even if the symbol ’DEGLZJiE' 7/ere declared as a 3 dimensioned 
variable and is available as such in the symbol table, we cannot 


categorize the statements as an 
ment merely bj^ scanning the fir 

Example 3: 

PROG - 1 

MABT; PROCEDURE OPTIONS (MATH) ; 

« 

DECLARE B REAL ; 

CALL SIR (A,B)| 

A;D=0 ; 

El® milT : 

SIR:PROCEDURE ; 


assignment or declaration state- 
it symbol •DECLimE' 

PROG-2 

iaiiI:PROCEDlR.E OPTIONS (lAAIN) ; 

DECLARE B EEi'iL ; 

* 

CALL SIR (A,B) ; 

El® liAIN I 
SIIrPROCSDURE ; 


In both the above programs, upto the statement ’CALL SIH(A,B) 
there is no information about the symbol A, therefore no conclu- 
sions can be drav/n as to its nature. In program- 1 it turns out 
to be a label co'cstantj vnile prograin-2 expects default attri- 
butes to be assigned to Ai. The problem becomes more acute 
because of the conversions that have to be performed when 
arguments and parameters in procedurae do not having matching 
attributes. The problem becomes doubly compounded 7/ben 7/e 
add a DECLAPE statement in the main pirocedures of PROG-1 and 
PROG-2 as follows: 
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DECMEE SII G-EUERIC (SIN1 WHEN (label, real), 

SIN2 IHEI (real, real)); 

The first program would expect a call to SIRl be made, while 
the second would require a call to SIH2 be made. 

Thus, in all these examples, the first pass can come 
to our rescue. In the first example it v/ould have collected 
enough information about the nature of the constant, so that 
when second pass requires a lexical unit at that point in the 
program, there would be no difficulty in supplying it with a 
complex constant in one case and a real constant in the -other. 

In the second example, the classification of statements carried 
out by the first pass helps in resolving the ambiguity for the 
2nd pass. In third example the first pass would have collected 
all the labels of each block and made it available in a group 
to the 2nd pass v/ith the result that at the beginning of each 
block the 2nd pass knov/s exactly which symbols constitute label 
constants and which of them have to be assigned default attributes 
Certain other duties are also assigned to the 1st pass to make 
things ea.sy in the 2nd pass. These are detailed in the Chapter 
on 'FIRST PASS PROCESSOR'. ¥e have enough evidence in hand to 
justify the existence of this pass. 

2.3 Pass - II : 

In this pass, most of the syntax analysis and all of the 
semantic interpretation are carried out. But for the limiting 
factor of the memory space available, code generation could easily 
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have been included in this pass, rendering the 3rd pass redundant 

The syntactic analysis is a decentralised process and 
is carried out hy several statement decoding routines. This 
strategy has a clear advantage of being fast compared to a centra 
lized sjmtactic analysing scheme. The advantage accrues from the 
fact that each decoding routine not only checks the syntax but 
also assigns the semantic interpretation simultaneously. Such a 
possibilitj’' is precluded in the case of the centralized syntactic 
analysing scheme. A slight disadvantage of decentralization may 
be the larger core storage requirement, but, in any case, since 
we need a separate pass for code generation, it is not worth 
while to save a few location and lose in time. 

The second pass has a set of symbol table management 
routines which ar^ used by the decoders for getting/adding infor- 
mation from/to the symbol table. Since in PL/I language scalar 
expressions coulii be used at every conceivable point in the 
program, the expression handler is another facility which is 
utilized by the decoders. The expression handler has 3 inter- 
related routines - the buffer handler, arithmetic processor and 
the sorting routine. The motivation for this type of organiza- 
tion of the expression handler, and the tasks performed by the 
3 routines have been detailed in Sec. 3*2 of this Chapter. 
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It is worthwhile to mention at this point, that even 
though the hulk of the code is generated hy the 3rd pass, a snail 
portion of it is generated in the 2nd pass also. Coding which is 
independent of the logic -of the program falls under this category. ; 
Data lists, constants, file declarations etc. form a part of the 
code outputted during the second pass. Shis is in keeping with the 
basic philosophy of doing as much as possible in every pass. 

2.4 Pass - III; 

As has already been mentioned in earlier sections, the 
3rd pass generates the final coding in a form acceptable to the 
MAP assembler. Apart from code generation, optimisation of tem- 
poraries is also carried out in this pass. No other complications 
are tackled at this stage and hence the 3rd pass constitutes, 
logically, the simplest pass of the three passes. 

Pour work units are required by the PD 7044 compiler. 

Ihe output of the first pass is held on Work Unit 1. Phis output 
is read in by the executive of the second pass. Ihe label 
definitions, block predecessor table and the DO table are outputted 
on Work Unit 2. In the second pass, the tables are initially ‘ 
read into pre-assigned locations, and at the beginning of each 
block, the label definitions collected by the 1st pass are entered 
into the symbol table. Ihe intermediate code generated by PASS II 
is outputted on Work Unit 3 while the fiml MAP coding is made 
available on Work Unit 4. It is not possible to further optimise 
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on the number of Work units because during the 2nd pass, all the 
four work units are active. 

The three passes may be edited on the System library as 
three phases operating under the Processor Monitor IBJOB, The 
IBJOB will hand over control to the 1st pass via the System Loader 
and each of the passes w'ill return control to the System loader 
with a request to load the next phase. 

3* Implementation le tails : 

3.1 Memory tlanageme nt :■ 

3*1.1 Storage Classes : 

PI 7044 allovfs a programmer a choice of two storage 
classes - STATIC and AUTOI/iATIC. The other two classes of storage 
namely, COKTROHED and BASEL are not available because they can 
lead to fragmentation of memory in the absence of hardTOre faci- 
lities like segmentation and paging. The fragmentation will arise 
in a linear memory space, such as is available on the 7044, in the 
following manner. The COFi'ROLllD class of storage allows a pro- 
grammer to allocate and free memory space for a particular variable 
in accordance with his requirements. He may, for example, create 
several generations of the same variable and then release storage 
for any or several of these generations. How the order in which 
he creates successive generations need not be the exact reciprocal 
of the order in which releases them. In other words, in many 
programming situations the last-in-first-out principle may not 
be ^ijfollowed and this can leads to fragmentation of memory space. 
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PL 7044 compiler analyses storage requirement for the 
entire program and schedules the allocation of storage as it is 
needed. At run time, a general pool of storage cells is maintains; 
which receives storage cells as ?/hen they are released and allo- 
cates them to other data items as and when they are demanded. Thus; 
a data item may not he allotted the same memory space at two 
different allocations. The difference between the two classes of 
storage STATIC and AUTOIiATIC is intimately connected with the 
partitioning of memory into blocks and will be discussed in 
Section 5 . 1 . 3 * 

3.1.2 Representation of Various Lata Items in Memory : 

The rules for forming constants and their internal 
representation are given in Appendix B and will not be touched 
upon here 5 since they are self explanatory. Appendix D lists 
variable items under three headings - arithmetic variables, 
string variables and label variables. The internal representa- 
tion of these types have also been given in detail and will not 
be discussed here, lie shall concentrate our attention here to 
data aggregates and how they are handled during compilation 
and run time. 

Internal Representation of Arrays: The array is repre- 
sented in PL 7044 by three chunks of memory space called the 
header, the dope vector and the actual area containing data. 

The header area is a single 7044 v/ord whose format is shown 


below. 
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Address of Dope 
Vector Area 


Address of Data 
Area 


This is the format when the array contains complex, floating point 
integer, character or hit string data items. In the case of an 
array of labels with a permitted list (See Appendix D for a descri] 
tion of label variables with a list) the header area consists of 
two words having the following format 


] 

WORD 1 

WORD 2 

% 

Address of 

Dope Vector 


Address of 

Data Area 


Address of 
list 

A 



The dope vector area contains information about lower bound, the 
range and the multiplying factor for each of the H dimensions of 
the array. It also stores an address which is useful for 
accessing an element of the array in the data area. Thus the space 
requirement for the dope vector of an N dimensioned array turns 
out to be 3*N+1 locations. 


Internal Representation of Structures: 

The motivation in having structures and the facilities 
to manipulate them has been outlined in Chapter I. ¥e shall 
concentrate our attention here to the internal representation of 
structure on IBM 7044- . 

A structure is represented in core storage as a linear 
collection of all base (or leaf) elements if the corresponding 
tree is scanned from left to right. Thus for example. 
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will "be assigned storage as follows: 

mm I REGULAR j , OVERT I® ’ RATE 

Each Ease element in this collection is treated as if it has 
been declared as a variable. In fact, at execution time, the 
structure looses its identity. Each base element is treated 
as a variable for addressing purposes. Of the two extended data 
aggregates - arrays of structures and structures of arrays, the 
former is not provided. Structures of arrays have been taken care 
of, however, a,nd their internal representation is best illustrated 
by the following example: 

DECLARE 1 IITZAIIPUR, 2 PURESCIENCE , 3 LEPARTIffilJTS (3), 

2 AEPLIELSCIENCE, 3 DSPARTlffilTS (7); 

The internal representation of the above structure, 7/hich has 

twfo arrays as its base elements, is as follows 


I 


Thus, if a base element of a structure is an array then its J 

i 

header word gets inserted in the linear collection of base elements 
that vie talked of earlier. 


HEALER OF 

APPLIED SCIENCE. LEPART&IENTS 


HEALER OF 

PURE SCIENCE . LEPART15ENT S 
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Representation of Formal Structu re : 

A major structare or a minor structure may be passed on 
as an argument in a procedure call. It is the responsibility of 
the programmer to make sure that the corresponding parameter of 
the called procedure is also a structure whose specifications 
(attributes) and hierarchy match those of the transmitted structure 
Vdien such is the case, the formal structure parameter (henceforth 
to.be called formal structure) is once again represented by a linear 
collection of base elements. Each such base element is then 
treated as if it has been explicitly declared as a formal para- 
meter. As in the previous case, the formal structure then loses 
its identity. T'here is, however, one important difference between 
normal and formal representation. Whereas in the case of normal 
structure, no storage cell is allotted to the major structure, in 
the case of the formal structure, the major structure is allotted 
one word for purposes detailed below, 

Tihen a foriual structure (either a major or minor) is 
transmitted as an arg-ument in a procedure reference, it is 
necessary to transmit the address of the first base element of 
the minor or major strticture in the parent (or normal) collection 
of base elements. This facilities uniform treatment of formal 
structures no matter how many times the same structure or a part 
of it is transmitted through a number of procedure references. 

Thus, it is this address of the first base element of the struc- 
ture (major or minor) in the parent collection that occupies the 
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word allotted to the formal structrae parameter. The above 
discussion is illustrated hy the example below: 

144 IN iPROOEfUKB OPTIONS (MIN); 

DECLiiEE 1 A, 2 B, 3 0 OHARAOTER (l0), 3 D CHARACTER (5), 

2 E, 3 F (10,10) COtEPlEX, 3 G, 4 I (10) lulBEL, 

3 J, 4 K (10,10,10), 4 1 bit (l0); 

% 

CALL PROCI(A.E) ; 

« 

• 

PROG 1 : PROCEDURE (M) ; 

DECLARE 1 M, 2 N(lO,lO) COMPLEX, 2 X, 3 P(lO) LABEL, 

2 Q, 3 R(iO,10,10), 3 S BIT (10); 

« 

CALL PRO C 2 (M.Q); 

# 

PR0C2 ;Pr6cEDURE(X) ; 

DECLARE 1 X, 2 Y (10,10,10) REAL, 2 X BIT(iO); 

The storage representation of the three structured iis sho?/n 
in Eig. OG-1. 

Note that for formal structures M and N, the cells allotte 
to them point to the first base element under the respective major/: 
minor structure of the parent structure. 'When ^^.E is transmitted 
from the MAIN procedure to PEOCi there is no difficulty in calcu- i 
lating the address of the base element of A.E, namely E. It is 
eq.ual to (BS.XX-iX)+(3-1 ) = say) where BS.XX+Y is the starting I 
address of the normal structure in core. When M.Q. is transmitted ; 
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to procedure PR0C2, the address of element K in the parent collec- 
tion is arri'ved at hy adding the offset of the first element of 
Ivl. Q which is P. to , i,e = addr. of K = a^+(4-l) = (BS.XX+l) 

+(3—1 ) +(4—1 ) 
= (3S.XX+Y)+5. 

It is, v/orth while, at this point to comment on the 
splitting of the header word and the dope vector of an array into 
two distinct storage areas instead of merging them into one. If 
we had not resorted to splitting of the two sections, it will he 
necessary for us to transmit both these areas every time a struc- 
ture of arrays is passed on as an argument in order to maintain 
the uniformity of treatment of all foimiat structures. Thus an 
area equal to 3*N+1 when S is the dimension of the array, will 
have to be copied every time, resulting in not only wastage of 
storage space but also in execution time because the copying is 
done at run time. Thus splitting the two areas avoids wastage 
of space and time and also allows the above schem*e of internal 
representation of formal structure to function successfully. 

3.2.3 Memo rv Part i t i o n ing : 

In order to implement the block structure of PL/l, it 
was found necessary to partition memory software- wise. Before 
we proceed to detail the partitioning strategy, two definitions 
seem appropriate. 
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1. Block Representation: Each block of PL 7044 program 

is represented and referred to by an unsigned octal integer which 
is the number assigned to it in lexicographically ascending order, • 
Thus, if the compiler has encoiontered (1''T-1 )q blocks before encoun- 
tering the current block, then the cuirrent block will in future 
be identified b3’' ITg. 

2. Predecessor Block: L predecessor block is one that has, 
between its header statement and ending statement, the entire body 
of the block whose predecessor vre are seeking. An immediate 
predecessor is a predecessor which is lexicographically closest 

to the block in question. 

PL 7044 allows a maximum of 62 blocks in a program. All 
variables having the attribute ’SLAIIC’ are considered to be ! 

belonging to an imaginary block ’0’ v/hich is never closed and 
which encompasses the entire program and thus simulates the effect 
of a STATIC declaration. 

A 'block predecessor table’ is created during the 1st 
pass and is passed on to 2nd pass and finally to the run time a 
code. The Block Predecessor Table (BPT) carries the block number 
of the immediate predecessor of each block. Thus the BPT stores 
the lexicographic descendance relationship between blocks. 

Available memory space is divided into 3 m.ain parts, 

(1) Scalar storage area (herein after called as FIRST ORDER STORAGE) 

(2) ilrray Storage Area (herein after called SECORD ORDIR STORAGE) 

(5) Save Storage i'irea (herein after called THIRD ORDER STORAGE). 



OC-18 


The' extent of the first category of storage is determined at 

compile time while the extent of the 2nd and 3rd order storage 

« 

is deteininahle only at run time and these categories are allocated 
storage from the top and hottom of the free core space after the 
program code and first order storage have been loaded. More about 
the run time storage management is given in Section 3.2.4. 

Scalar Storage Area (First Order ) ; 

An address of a scalar variable is an ordered pair, the 
first member of which is the block number H in which the variable 
is declared and the second member is an offset v/ith respect to 
the starting of the storage scalar area of the block IT, Scalar 
storage area may be divided under three heads, namely a) scalar 
element area, b) array dope vector area and c) temporary area. 

Sca lar Elem.ent iirea : 

All scalar elements defined in a particular block and the 
header words of arrays and character string variables are assigned 
storage in this area. 

ilrray Dope Vector ilrea : 

'I'he representation of an array as described earlier con- 
sisted of three different areas. Of these, the dope vector is 
assigned storage in this area. The starting address of this area 
is the last location occupied by the scalar element area plus one. 
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Temporary Area : 

The temporary storage requirements of a block constitute 
this area. The starting address of this area equals the last 
location of the dope yector area plus one. 

Some Hotations : 

Starting Address of first order area 

of a block BS,XX 

Starting Address of Scalar Element Area 

(SEA) BS,XX 

Starting Address of Array Dope Vector Area 

(ilDVA) AS. XX 

Starting Address of Temporary Area (TA) TS.XX 

A location in SEA may be referred to by BS,XX+<offset>| 

A location in ilDVA may be referred to by AS,XX+<offset> 

A location in TA may be referred to by TS.XX+<off set> 

Last first order storage location of ablock 

block + 1 el: be. XX 

In the above notations 'XX' represents the block number 
in octal and 'offset' is the position of the location relative to 
the start of each area. 

Eor each block the following relationships hold, 

BS.XX BQU BE.P(XX) 

AS. XX EQU BS.XX+^(SEil) 

.TS.XX EQU i.S.XX+;4^(^iDVA) 

BE. XX EQU TS.XX+7^(TA) 
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where P(XX) - inmediate predecessor block ntanber. 


The maxim-um mmber of first order storage is calculated 


as follows: 

Step 1 i 

( 0 ) =SE^( 0 ) +DP VA( 0 ) +TA(0 ) . 


Step 2: 

At the end of each block the total first order area 
required till then is calculated as 


^(3^) = ^(P(B^)) + SEA (B^) + DPVA (B^) + TA (Bj_) 

v/here is the immediate predecessor of the i-th block and 

SEA, DPYA and TA all have same notation as above, 

Step 5 : 

llaximum first order} • .. 

V = DA-iX ^ B. ) i 
Storage Required j i=0,1,,..lT 

let the maxim-um of first order storage be represented 
by L'lXF' SiiR , 

At the end of the 3rd pass liXESalR is available to the 
compiler, and it then generates the following code 

BS.OO EQU * 

B3S <iIXESAR> 


The 3rd pass also prepares a 'block storage table' and outputs it 
along with other code. This table consists of the starting address 
and ending address +1 of the first order area of each block. It 
is used by the prologue routine during run time to effect saving 
and restoring of 1st order area in the 3rd order storage area. 
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The general format of an entry in the hlock storage area is, 

PZE BE. XX,, BS. XX 

where , 

BE. XX and BS.XX hawe the same connotations as before. 
Appendix [E illustrates all that we have discussed about block 
structures by working out the actual codes that will be generated 
for the example in Appendix E. 

Saving and Restoring Eirst Order Storage : 

As can be seen from the illustration in Appendix E, two 
or more procedures will share the same storage space if they have i 
the same immediate predecessor. This is because the scalar storag 
area of one such block is inaccessible to the other, thus enabling 
the prologue routines to save, use and restore the same physical 
area over several procedures having the same immediate predecessori. 
Ifote that this ; technique will fail if the 'TASK' attribute were : 
to be implemented because two procedures may be under execution 
at the same time and this will not permit such overlaps. 

let us now discuss, briefly, how the prologue routines 
calculate the amount of core storage (from first order area) to 
be saved in the SAil area (third order area). At the time of 
invoking a procedure, the value of (BS.<called-procedure> - 
BE. <calling-procedure>) is calculated. If it turns out to be 
positive or zero then no saving need be done, since it implies 
that the block being opened does not share any first order area 
with the calling block. 
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On the other hand, if a negative value is obtained, the prologue 

routine saves an area equal to iBS.<called> - BE. <calling> j . 

procedun'e procedure 

This count and the position in the 3rd order area is carried along 
in the run time stack which is the topic of our discussion in the 
next section (3.2.4). 

i>.t the tirfiC of closing a block, and returning to the 
calling program any area that has been saved during invocation 
must be restored. This is achieved by consulting the linkage cells 
of the block in the run time stack' (Section 3.2-4). We shall defer 
our discussion on the exact mechanism of restoring till the end of ; 
next section- 

3.2.4 Run Time Stack Idanagement, : 

. The entire free core storage available after loading the 
program code , first order storage requirements , supporting sub- 
routines from the system library and the I/O buffer requirements 
is converted into a double ended stack which can be accessed from 
both ends. Big. OC-2 shows schematically the runtime stack. The 
stack comprises the 2nd order storage area of each block described 
in Section 3-2.3j the 3rd order storage area and certain linkage 
cells which are vital for transfer of control from one block to 
another and other book keeping operations which will outlined 
below. 
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The general format of the linkage cell is as follows: 


1 

L.P.P, 

W/ 

ret-urn Addr. 


W.A.P. 


of words saved 


DOSRBO 

i 

Calling Block Bo. 


lotations x 

P.P.P. (Present Procedure Pointer) - This is a one word 
area which contains the address of the first of the 3 locations 
which constitute the linkage cell of the block which is being 
currently executed. 

l.P.P, (last Procedure Pointer) - This is the value of 
the P.P.P. when the invocation of the present block was made. 

Yf.A.P. (Work Area Pointer) - It is the address of the 
first free location after arrays and character variables (Second 
order storage Area) have been allocated memory space. This denotes 
the address of the first free cell available for assigning tempo- 
raries req.uiring more than 2 words. 

P.C.P. (Free Cell Pointer) - It is the address of the 
first free location after multiword temperaries have been assigned. 

At the end of each assignment statement or expression 
using a multiword temporaries, the arithmetic processor generates 
code to bring the Free Cell pointer back to the value of the Work 
Area Pointer. This results in a slight inefficiency in the use 
of available space, since not all the temporaries will be required 
at the same time and some amount of sharing is possible. But the 
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Nucleus 


IOCS 

Object program 

+first order 
storage area 

+supporting library 
subroutines 

i Run Time Stack 
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logical simplicity of the present scheme of alloting all the 
temporaries at one shot has been given more weightage in our 
considerations of the two methods. Also, if the temporaries 
are not allocated and released according to the last— in— first 
out principle, it would be difficult to keep track of the result- 
ing fragmentation of memory space. 

S.A.P. (Save Area Pointer) - It is the address of the 
location upto which the stock is filled from the high core side 
with 1st order storage saved during procedure Invocations. 

Mechanism of the linkage Cell : 

1. I.P.P.- At the time of closing a block we must reset the 
P.P.P. value to the address of the linkage cell of the block which 
invoked the cinrrent block. This is precisely the content of l.P.P, 

2. Return Address: Por a 'begin' block, this value is zero, 
since it cannot be called out-of-sequence | for a procedure it 
contains the address complement of the point of invocation. This 
is necessary for continuing execution after a called procedure has 
been deactivated by a RETURII or ElE) statement. 

3. W.A.P, - This pointer is to be saved in the linkage cell 
of the current block, every time a procedure invocation is made. 
This is because the called procedure itself will alter the value 
of W.A.P. and in order to retriev.e the value of W.A.P, after call 
is over, we must save the 'current value of W.A.P. It is evident 
that while entering a 'begin* block such a precaution is not 
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necessary since a begin block cannot be invoked from out-of-line. 

4. 7 ^ of words saved: It stores the number of words saved, 
if any, at the time of invoking the present block. Ibis is needed 
for determining if any restoration is to be carried out when 
closing the block. 

5. BOSRITO: It is the serial number of a 'DO' group if the 
invocation has been made from inside a DO group. This is to 
ensure that the distination of a possible GOTO statement in the 
ctirrent procedure is a valid destination. 

6. Calling Block Bo; With the help of this information 
and the number of words saved if any, the run time stack manage- 
ment routines carryout restoration of 1st order storage area 
saved. 

3.2 Expression Processor : 

As the name suggests, the expression processor is 
primarily concerned with the generation of object language codes 
for expressions in PL 7044. The code generation of the assign- 
ment statement is also done by the .expression processor. The 
occurrence of an expression is permitted in practically every 
statement and at every conceivable point in the program. Each 
situation delimits the expression by a different pair of terminal 
symbols. Hence the expression processor must recognise the situa- 
tion from where it is called and output code according to the 
needs of the situation. Thus, the factors one has to bear in 
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mind while designing an expression processor may be enumerated 
as under: 

(i) Ambiguity regarding the use of an operator: In PI 7044, 

is used for both assignment and relational comparison. The choice 
to be made between the two meanings | is highly context dependent. 
Similar is the ca-sa with delimities like ’)’ etc. Hence 

the expression processor should be designed to distinguish between; 
multiusages of operators and delimiters. 

(ii) Recognition of the domain of the expression: As mentioned 

in the opening remarks, the expression processor must recognise 
different pairs of end markers for different calls. Por example, 
in DO A(l,J) = ; the expression processor will be called 

into action after the *D0 ' has bf en recognised by the ’DO ’ handling; 
routine. In this case the input for E.P. is delimited by ’DO’ on 
one side and ' = ' on the other. Yihereas in the case of A(l,J) = B+C; 
the E.P’s domain is the entire statement. The E.P. should not 
return control at the '=’ symbol! 

(iii) Recognition of Error Conditions: Besides some terminal ; 

errors like illegal operator-operand sequence, recognition of 
an error condition may also depend on the special rec^uests of the 
calling routine. Eor instance, in the example in (ii) is a 

valid occurrence in A(I,J) = B+C; but not so in DO A(l,j)| 

(iv) Distinction between Pseudo Variable Reference and Built-in 
function reference: In PL 7044, there are several built-in-function 
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names which may also he used as Pseudo variahle names. The dis- 
tinction is made again on the basis of context. Por example, 
in C0IvIPIiX(A,B) = A+3+C01/iPIiX(C,D) ; , the first reference C0I\€PItX(A,B) 
is a Pseudo variable reference whereas C0IIPLX(C,D) is a built-in 
function reference. 

(v) Recognition of scalar and aggregate expressions: For 
obvious reasons, processing of aggregate expression (i.e. expres- 
sions involving arraj's and structures) need more work to be done 
than in case of scalar expressions. Now, if arrays and structures 
occur in the argument list of a procedure reference only, the 
expression will still remain scalar in nature. But if thej’" occur 
in the argument list of some built-in functions, the whole expres- 
sion can become aggregate in nature. For example, ’B+SIN(B)’, 
where D was declared to be an array, will be considered to be of 
aggregate type, vdiile 'B+P(D) * , where P is a procedure by declara- 
tion, v;ill be deemed to be of scalar type. 

(vi) Analysis of the expression and generation of codes: In 
expressions, subexpressions are grouped together by means of 
parenthesis or by the well knovm rules of precedence (e.g. 
a*b+c*d = (a*b)+(c+d) ) . Hence the expression processor must 
follow these rules in the course of its analysis, decomposition 
and generation of codes. 

(vii) Meeting the requimiments of different calling routines: 

‘The object code generated for the same expression in- different 
situations, in general, will be different. This is because. 
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different situations require different end results. For example, 
the occurrence of A+B, where both A and B are floating point 
•variables, as format explicitors will ‘necessiate the conversion 
of the end result into integer form. (The occurrence of the same 
expression in a data list of an I/O command requires no conversion. 

(viii) Aa® of Standard Side Effects: The result of the 

expression A+B+P(a), where P is a procedure by declaration and 
has the property of altering the value of A - such an effect is 
called the side effect - will be different in two different 
interpretations namely (A+B)+P(A) and A+(B+P(A)). This may cause 
the same program to give different results in two different 
implementations. Thus, in order to avoid any implementation 
dependancy in handling expressions, certain norms have to be 
introduced for tackling such situations. The norm that is 
universally accepted is that all codes relating to procedure 
references must take precedence over other codes in an expression. 
This will necessiate a final sorting of the processor output. 

(ix) Separating the repetitive and non repetitive codes in 
case of aggregate expressions: For object code efficiency one 
would like to calculate the non-repet it ive part of an expression 
once and for all outside the repetitive part. But in general, the 

repetitive and non repetitive parts will be interleaved in an 
expression. For this reason also, sorting of the code before 
finally outputting the code, is desirable. 
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The factors (i) thru (vii) can he taken care of hy a 
single scan of the input hj a single routine. But this will 
make the logic wery involved. It was therefore decided to have 
a two pass scheme in the present implementation. The first scan 
takes care of factors (i)s (ii), (iii), (iv) and (v) and is 
executed hy a routine called the BUEPER HAllDIER. The second scan 
is carried out hy the ACTUAL ARITHI\!ETIC PROCESSOR and accounts for 
factors (vi) and (vii). As has already heen mentioned factors 
(viii) and (ix) are taken care of hy the sorting routine. 

In the present organisation, each calling routine will 
identify itself and its peculiar requirements hy entering the 
buffer handler at a preassigned entry point. The buffer handler 
lays out the expression in a form that is recognisable hy the 
actual arithmetic processor. The buffer handler then returns 
control to the calling routine after setting up relevant flags 
to indicate the type of the expression in question. It should 
he honie in mind that the calling routine calls the handler 
anticipating an expression in the particular situation in hand. 

It may turn out that there is no expression involved and this 
status is what is conveyed hy the buffer handler when it returns 
control to the calling routine. Proceeding a step further, the 
calling routine examines the flags set-up hy the buffer handler, 
and if the existence of an expression is indicated, a call to the 
actual arithmetic routine is put through. The arithmetic routine 
analyses the expression laid out in the fixed length buffer hy the 
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buffer handler, generates intermediate code, and calls the 
sorting routine. This in turns sorts the code according to 
predetermined priorities and returns control to the calling 
routine. This set up resulted in three distinct advantages 

(i) the modular structure of the organisation permitted parallel 
debugging of all the 3 routines and easier logic in coding, 

(ii) the calling routine was able to check the validity of the 
delimiter returned by the buffer handler, and thus the number of 
entry points w^ere less than it would have been if each caller 
required a separate entry point- In other words, some of the 
entry points in the buffer handler could be used by more than 
one caller. This advantage accrued because the buffer handler 
returned control as soon it had done its job- and (iii) since 
both the buffer handler and arithmetic routine are called by the 
in|.tial calling routine, certain amoxmt of flexibility has resulted 
The calling routine is in a better position to indicate its require 
ments to the actual arithmetic roiitine than the buffer handler. 

Thus the number of entry points in the arithmetic processor is 
also kept to the minim-um. 

As an illustration of c,ll that has been discussed before, 
let us consider the followang example : 

PUT LIST ( ( ( (A+B) *C)-*-*E BO 1= 1,2,3) ) ; 

0 1 2 3 3’ 2’ 1 ’ O' 
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Here ( is used for 'bracketing the 'BO’ whereas ( and ( are used 
1 2 3 
for bracketing of expressions. In order to analyse this situation 

the I/O analyser calls the buffer handler only after consuming 

the 4 left parentheses. The buffer handler returns at ) because 

3' 

of its minability to find a matching (, The I/O analyser 
supplies the matching left parenthesis and again calls the 

buffer handler which returns control at ) for similar reasons. 

2 ' 

This continues till the buffer handler returns control after 
meeting the 'BO'. i.t this point the I/O analyser knows that 
there exists an expression consisting of 2 pairs of parenthesis 
and a 'BO ' group. It can now call the arithmetic routine for 
analysis of the expression laid out by the buffer handler. 

3.3 Innut and Output : 

3.3.1 System limitations ; 

One of the most powerfiil features of Pl/I is in the area 
of data transmission to and from the processor. As has been 
mentioned in Chapter I, this is also an area wiiere maximum machine 
independance has been incorporated. The existing I/O software 
on the IBM 7044 is rather inadeq'uate to handle the sophisticated 
requirement of PL/I l/O, the main reason being the I/O software 
is essentially designed to cater to the needs of PORTRAl!! like 
languages. Thus in deciding upon the features to be incorporated 
in PL 7044? one has to contend with limitations imposed by the 
system I/O software some of \’\Aiich are enunciated below: 
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(i) Of the three leirels of IOCS available to the user only the 
second level-IOOP can accept requests for accessing randomly 
located records. Thus one has to write one's own bu.ffering system 
(lOBS) if one wishes to incorporate non-sequential file processing. 

(ii) The I/O routines v/hich handle Portran I/O statements are 
designed to handle records of data and are incapable of servicing 
stream oriented I/O commands. 

(iii) File handling capabilities are relatively primitive. This 
is probably because the IOCS v/as written primarily to cater to 
FORTRAN like languages. For example no provision for checking 
validity of file .operations is made except on system input and 
output files. 

(iv) Unlike Fortran, where a user may use a limited number of 
file names only (i.e. logical units 0 thru 7) » FI/I is not 
restrictive in this respect. The linkage between file names (which 
are arbitrary) and the physical devices (or symbolic devices) 

is usually a duty performed by IOCS. No such operations are 
undertaken by the present sys-fcem. 

On the hardware side, absence of certain features like 
paging, backward reading tapes, makes it difficult or rules out 
certain features like BACKWARDS etc. Under the circimstances, two 
solutions presented themselves for consideration. First, one 
could revamp the entire I/O Software or atleast a part of it in 
order to suit the language requirements and second, one could 
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VvTite a nmlDer of supporting routines ?/hich . migbt bridge the gap 
between what was required of an ideal I/O software package and 
what v/as available. The first solution, though better, in the 
long run, ms too prohibitive in terms of man hours required, and 
one had to accept, perforce, the second solution although it 
suffered from a certain amount of clumsiness which is inevitable 
in any patchwork. 

3.3.2 [File Handling : 

Files are declared just as any other variables by a DECLARE i 
statement. They can also be declared by an OPEN statement. For. a 
complete list of valid file attributes the reader is referred to 
Appendix 0. At the time vhen the file is first used in an I/O 
statement, file declaration code is generated and outputted. Also 
the file is given a unique number depending on its lexicographic 
appearance in the program and thereafter the file is always referred; 
to by this number. Since file names in PI/I can have a length more 
than 6 characters and since IvIAP language v/ill not alio?/ more than 
six characters, file declarations are made by forming a name such 
as ’PDF'. XX’ where XX denotes the file nimiber. Thus a declaration 
in PL/I: 

DECLARE iVIASTBR FILE INPUT RSCOPJD; will result in a IIMB file 
declaration 

PLF.OO FILE UOO, *,BL0CK=257, double, LEL=256,TYPB3,RCT=1, 

ETC REEL, EOF =REOFX. ,ERR=REREX. ,E0R=ilE0RX. 
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In the above example we notice that the file name 'MASTER' 
has been transformed into PIE. 00 because it was the first file to 
have been declared. 

Secondly we note that the linlcage between the MAP file name ^ 
and the S3rmbolic device is also straight forward i.e. PIE. 00 
resides on UOO. IJOO is the abbreviation for utility unit having 
the symbolic name S. SUOO. Notice that S. SUOO can be any device 
disk, mag tape or any other device available in the system. The 
user must, of course, know that the order in which he declares his 
files is the order in i^hich the utility units are assigned starting I 
from S.SUOO. If he declares more files then the number of utility 
units available, file declaration generation is suspended and an 
error message is given. We are disallowing multifile units because j 
the user, in any case, cannot find out which of his files reside 
on a particiilar unit. As long as he restricts the number of files 
to less than or enual to the number of units available he can know : 
for sure which files are on which imit. i 

As we have mentioned earlier, IOCS does not check the validity 
of operations on files. The file control block generated by the [ 

IBIDPu does not contain enough information about files to cater i 

to this need. It was, therefore, decided to maintain a file 
status block for each file, the format of wrhich is given below: 


PPX1 J 

I ADDr1 I 

five storage words 

PEX2I 
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PFX1 = PZB for stream print files' 

= POIT for stream input files 
= PIW for stream output files 
= MZE for record input files 
= MOK for record output files 
= MIW for record update files 
iI)Dr1= link ^address of last file status block used in 
an I/O statement 

PPXA== PZE if this status bloctai does not contain useful ; 
information 

= MZE if the status block contains useful information 

The area shown under hatching is required to save certain informati 
regarding status of the file. Por example, if it is an input strea 
file, it is necessary to save the position (in v/ords and characters: 
upto which the file has been processed. IStoen the processing of 
a file is interrupted these pointers (v/ord pointer and character 
pointer) are saved so that when processing is resumed on the same 
file the next character is made available. This is in contrast to 
EOETRilT file processing v;hich is record oriented. In this mode 
of operation, every time the file processing is started, a new 
record is either read in or -ivritten out. 

The link address Addr, 1 is necessary for flushing output 
buffers (if any of the files happen to be output files) at the 
end of the program. The exit monitor follo?/s the chain so created 
and if an output file is indicated, and if some operation has been 
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carried out or. that file, thasi the corresponding huiffers are 
trumcated and written out, This ensures that no information 
is lost in the buffers. 

3,3,5 Stream Oriented I/O : 

The list directed, data directed and the edit directed 
I/O have all been implemented in PL 7044. The list directed I/O' 
is essentially a free format facility intended to lighten the 
burden of I/O commands for the novice programmer. The data directec 
I/O is even more helpful to the newcomer in the sense that he can 
specify not only the values of the variables but also the names 
(consisting of valid identifiers) in the data stream. The edit 
directed I/O is meant for sophisticated editing of data items in 
accordance with format specification. Before we go on to describe 
the implementation of the three types of I/O commands it will be 
worthwhile to understand the mechanism by which record-oriented 
,l/0 routines of the system are made to appear as though they are 
stream oriented. 

Let us specify, for simplicity, the card reader to be the 
input medium and the line printer to be our output medium. - In case 
of PORTIlAIf, two successive read commands will cause two cards to 
be read, but in case of PL/I this is usually not the case. 

Poliowing figure shows two input data cards in which the 
values are punched in a free format (for a list directed input). 
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80 1 


The first card is read in and the character and v/ord 
pointers are initialized to point to the 1st coliann of the card. 
Mien a command to ’GET’ a data item is issued, an input routine 
repeatedly calls a character fetching routine till it hits a non 
"blank character. Erom this point onwards, the input routine will 
expect characters which are consistent with the definition of 
data constants, \7hen it encounters a comma or a "blank it stops 
further scanning, does conversions if necessary for matching the 
target and source data items. Before quitting, this routine 
also updates the vrord and character pointer to point to the next 
character to be scanned. If the character pointer equals 80, 
it sets up a flag so the next time a command is given to ’GET’ an 
item, the character fetching routine initiates a command to read a 
a new card, resets the various pointers and then starts the card 
scanning. Similarly in tho case of a line printer enough infor- 
mation is kept in order to detect the end-of-line situa^tion and 
initiate commands for outputting the just completed line and 
request lOBS for buffer space for the next line. 



/ 123.4,17,-76.2315, 7 


* See Appendix B. 
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The mechanism of list directed I/O has been explained 
above in connection with the conversion of record oriented I/O 
to stream oriented I/O, We shall, therefore, proceed with a 
brief description of DATA and EDIT- - directed I/O. 


Data directed I/O requires that the names of the variables 
participating in the I/O command be available at run time. It 
should be borne in mind, that in no other situation in PL/I is 
required to furnish variable names at execution time. Thus, it is 
necessary for one to create a table of the names, attributes and ± 
the number and value of dimensions if any of the variable and 
maintain it at run time. Actually two such tables are created 
during the 2nd pass of the compilation. One is called the Compile 
Time Data Table whose capacity is limited to 500 words. The other 
table is the Run Time Data Table whose capacity is variable. Each 
entry in the Compile Time Data Table has the following .Eormat, 
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i X 

! 

Y 1 

Addr. 1 

: ' OEI SnT 1 

iAJTYPjBLENO 

\ \ 

\\ 



[mnrtyp 


DBSCRIPTIOlh OE 1ST DHISRSIOR 


DESCRIPTION OE 2ND DBISRSIOR 
DESCRIPTION OE 3RD DBIENSION 
DESCRIPTION OE 4TH DIMENSION 
DESCRIPTION OE 5TH DIMENSION 

I Addr. 2 
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where , 

X = no. of characters in the name 
Y = no. of words in the name 

£14240 = block serial niunber where the name is declared 

IliJTYP = 0 if it is a normal scalar variable 
= 1 if it is a format Scalar variable 
= immaterial if variable is array 
HDIl'M = 0 for (i . "Scalar 
^ 0 for an array 

Addr.1 = address complement of the last entry in the table 
Addr.2 = address of corresponding entry in Rim Time Table 
(in the form of a label n-umber) 

The p-ur-posa of a Compile Time Table is to minimise the 
n"umber of entries in the Ran Time Table and thus save space 
during execution time. Every variable in a GET/PUT DATA statement 
is matched against the existing entires in the Compile Time Table. 
If a match occurs, no Run Time entrjj" for that variable is created, 
and only the address of the existing run time table entry (Addr.2 
in Eig.0C-'3) is transmitted to 3rd pass. If a match does not 
occur, a Run Time, table entry and a Compile Time Table entry are 
both crea,ted and appropriate addresses passed on,. It is interest- 
ing to note that the Compile Time Table does not contain the 
actual characters comprising the name of the variable, but only 
the attributes of the variable. This is because of the fact that 
each variable during compilation is completely characterised by 
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ttieir attributes alone, and there is no need to hold on to the 
ssnnhols constituting the variable. In fact, one cannot say that 
symbols by themselves can uniquely define the variables, since 
the block structure of PI 7044 allows names to be non unique. 


The format of the run time table entry is as follows: 


DXXXXX 


Kxxm 


where , 



X = No. of Dimensions 

1 = Major lype 

2 = Minor lype 
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In contrast to the Compile lime Table, the Rim Time Table, 
holds the characters that form the symbol. This is as it should 
be, since in the input stream the only pertinent information 
available is the set of characters forming the name. Also, it 
should be noticed that v/hereas in the Compile Time Table each 
entry has a fixed number of words (=9), in the Run Time Table 
each entry has a variable format so as to optimise the number of 
locations required. Amother difference is in the access mecha- 
nism of the two ntable. In the C.T.T. one accesses the entries 
(for searching) thru a linear chain, whereas R.T.T. is always 
examined selectively by the run time routines on the basis of 
the addresses provided to them by the translated code. In the 
figure depicting R.T.T. we have tivo labels per entry (if it is a 
dimensioned entry) or one label if it is a non dimensioned entry. 
The first label gives the address of the starting point of each 
entry while the second label gives the address of where the 
dimension information starts. Thus, for example, in, 

GET DATA (A, B, C) ; 

if A and B are 4— dimensioned variables and C is a scalar the follow- 
ing code is generated, 

TSX R, DATA, 4 
3 

MEf D00001, ,K00001 

MZJD D00002, ,K00002 
P2E D00003 
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Thus, at ezecution time, enough information is made 
available for proper implementation of the GET/PUT PiTA facility. 

We shall now briefly touch upon the edit-directed I/O in 
PI 7044. Edit directed I/Os are always provided y/ith format 
specifications. Eormat specification can either be given immedia- 
tely after the closing of the data list, in which case they are 
called immediate format items or they may be given separately ?;ith : 
a label prefix in which case they are called Remote Eormat specifi- 
cations. 

In so far as the implementation of the edit directed I/O 
instruction is concerned, there is not much difference between the 
two. lhat is of interest to us is the linkage between the format 
item and the data list. A cue has been taken from the manner in 
which Eortran Compiler does the linkage. The format is separately 
translated into a set of calls to various supporting routines as 
in Eortran, a3.though the translation procedure itself is a lot 
more syntax and semantics ridden in case of PL/'I formats than 
in the case of EORTRAli, Also it is quite likely that Eormat lists 
will be inter leaved with arithmetic processor's coding in order 
to calculate expressions used as Eormat explicitors. The list of 
variables occuring in the data list is separately translated into 
a set of calls to a linliage routine which then sets up the connec- 
tion between the data list . item and the format list items. The 
basic strategy has been borrowed from the Eortran Compiler, but 
a variety of extensions have been incorporated. 
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3.3.4 Re cord -Oriented I/O- 

^ ^ '■■■-■ 

The translation of record oriented I/O has "been made 
relatively simple in the absence of the MSED class of variables 
for reasons mentioned earlier. Ifo special techniques had to be 
used for the implementation of record oriented I/O other than the 
validity checking operations that need to be perfoimed before 
executing Record-oriented I/O commai^ds also. 

3 . 4 C oncluding Remark s : 

In this chapter, we have tried to highlight, some of the 
techniques evolved to implement PL/I on IBM 7044. 

The introductory nature of the chapter prevented us from 
going into too many details. However, if the interest of the 
reader has been sufficiently aroused to 'read further, the purpose 
of this chapter would have been amply fulfilled. 



CHAPTER III 


l!-IRST PASS PR OCESSOR 

1. The need for having a first pass processor has already 

been described in Chapter II Section 2.2. This chapter 
provides a more detailed description of the first Pass Processor 
(PPP). 

The PP? has been entrusted with carrying out the follow- 
ing jobs. 

i) detection of complex constants 

ii) detection of used as an operand 

iii) detection of 'iSIB’ variables 

iv) detection of. repetition factor before a string constant, 
and if one found, expansion of the string according to the 
repetition factor. 

v) collection of statement labels 

vi) (a) making a name table and supplying a unique' name- 

key no. to each of the identifiers used in the 
program. 

(b) supplying actual name string to second pass, if 
needed. 

vii) classification of statements 

viii) matching IP-TKEI-ELSE in a compound statement and supply- 
ing EISE if not used explicitly. 
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ix) classification of El® as to whether closing a DO 5 
BEGIN or PROCEDURE’. 

x) detection of multiple closure and supplying as many 
ElOs as necessary 

xi) making a do-predecessor-tahle and determination of total 
nmber of DO-groups used. 

xii) making a block-predecessor-tahle and determination of 
total number of blocks used. 

xiii) determining the place where all the declarations and 
specifications and (immediately after the heading statements) 
and signalling it to the second pass. 

The input to the EPP is actual PL/l text and output of 
EPP is in an internal format. Internal representation of each 
lexical unit is given in Appendix A. During the first edition 
some validity checks are carried out on the source program, 
and if any error is detected, at the end of the 1st edition 
job is terminated and all further eaitions (2nd and 3rd) are 
deleted, The first edition uses tv/o-work units for its output. 
All statement- label- con starts are sorteCi out according to the 
block serial no. and are outputted on one work unit, where as 
code for actual statements is outputted on another work unit. 

2. A short description of each of the activities listed, 
follows: 

The first four activities are nothing but extension of 
the lexical activity, in general, since second pass receives 
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those four items as one lexical unit only, though first pass 
receives them as composed of one or more lexical units. 

2*1 det ection of Gomp lex Constants : 

A complex constant can be in one of the t?/o foims 
described below, 

+ m^I, or 

± 

where, m^ and are either integers or floating point constants. 

The first form represents a complex constant where as 
the second form represents only an imaginary constant (The 
PPP converts it into a complex constant whose real part is 
zero). 

Both of these forms are then digested into one and given 
as a single lexical unit called complex-constant , whose repre- 
sentation is as follows; 



2.2 Detection of U sed as an Opera nd: 

In PI 7044 language is not only used as an operator 
but also as an operand, e.g. -in the case of array cross-sections, 
star is used as an operand. 




A(1,*) represents a line x = 1 in a two dimensional 
plane. Consider iCl*!,*). The first use of star is as an 
operator where as the second use is as an operand. The repre- 
sentation of in the two contexts is as follows 

as an operator 

as an operand 

2.3 Detection of 'iSUB* Va r iable s: 
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This lexical construction is used while defining the 
relationship between a base array and the defined array (i 
being the dimensional position). Dor example the statement 
DECLARE A(10,15) ,B(15,10)DEB'IEBD A(2 SUB); defines two 

matrices. A is a matrix of 10x15 order, where as B is defined 
to be a matrix which is the transpose of matrix A. Since 
lexical analyser will break iSUB into two lexical units and 

■S. 

would give i-as an integer and 'SUB’ as PRW, the job of the 
EPP is to merge the two into one if there are no intervening 
blanks in between the tvro and it has been used inside paren- 
theses. The representation of iSUB, then, is as follows: 



(i = 1,2, 3, 4, 5). 


2 . 4 Detection and Application of Repetition Eactors: 

Pl/I provides a concise and short representation of 
strings containing repetitive sub-strings e.g. if one has to 
define a bit string of length 30, containing all 1's, then 
writing thirty, 1's one after another would be quite a waste of 





time. Instead it can te written as (30)'1*B5 which is a much 
more elegant and concise representation. Similarly a character 
string ’ABOIBCABC ' can he Ya?itten as (3) 'ABC^. The job of BPP 
is to detect its presence and then to expand the following string 
The second pass is transmitted the expanded string, as if repe- 
tition factor v/as not used at all. 

The activities described above were nothing but exten- 
sions of lexical activity, however the activities to be described; 
now involve logical decision making and have nothing to do with 
lexical activity as such. 

2 . 5 Collection of Statement Labels : 

As described in section 2.2 of Chapter II, the most 
important task of PPP is the collection of statement labels. 
Statement labels can mean four different things at four different 
places in a program. 

(a) statement label prefixed to a PROCEbUEE statement 
defines a primary entry point. 

(b) statement label pref.ixed to an EIITRY statement defines 
a secondary entry point. 

(c) statement label prefixed to a DECLARE statement refers 
to the next executable statement. 

(d) statement label prefixed to any other statement defines 
a statement label constant. 

Apart from the classification given above, special mention 
should be made of the statement labels prefixed to EEC IN and Do 
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statements, since they are needed in determining the closure 
of groups and blocks by the ElTl statement, if a label name 
follows the EI3D statement. 

i-long with all this, EPP also determines whether label 
initialisation is needed and separates it from the label defini- 
tion, e.g. consider a trivial PI 7044 program. 

liinj :PR0CE13URE OPTIONS (iiAliO | 
i;ECL^iKE A(10)LAHE1;- 
GO TO A(1) ; 

A(1):PIH1IST (’LABEL lEITIALISATIOE DOrJE ’ ) ; 

STOPiEIlD; 

In this case execution of program should print out the 
message LABEL IBTI'IALISATIOL DOHE, since A(1) would have been 
initialised to a statement label referring to the PUT LIST 
statement. 

A complete description of code generated for label 
initialisation can be found under Section S.S.SjCiiapter DC, 

EPP prepares a chained list of all statement label 
definitions. Each label is represented by two words. The 
compiler maintains a label counter -which is used for mapping 
statement-label names to actual labels, generated in code. 

Each statement label fieM is given a unique label number so 
that it can be uniquely identified. All the labels prefixed 
to a statement get the same label number which ensures that 
they refer to the same location in the code. 
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The format of the label entries is as follows: 

3 4 5 



DO serial no. 

- T-' ■ 

0 I Blk no. 


name -key-no. 

i ' i 

hi- 

ll-ij label serial n 

/'Id number 


St at eme nt-lab el- 
constant 


1 for integer, 0 for real 

Entry constants 



{/////// y'y//'///y 

blk noJ 1/2 j Blk no. 
code ! : 


' hb-' i 

name-key no. !d.fi label serial no. ! 

yii j 


Chr .-4 : 


1 for integer j 0 for real 


1. for primary entry points (with PROCEDURE statement). 

2. for secondary entry points (with ENTRY statement) 

i 

Blk no. is the block number in which the statement label is used. 
I'Tame-key-number is the no. with which the name used as label is 
identified in the compiler. Each label is also given a DO-- 
serial no., which is the serial no. of the do group open at the 
place where statement label is used. If no BO is open at that 
point it is zero. This no. is used to determine the validity 
of a GOTO destination since transfer to inside a DO group from 
outside is illegal. 


Block to v/hich code belongs and block to which statement 
label belongs are two different things. The distinction should 
be clearly understood. The statement label belongs to the 
predecessor block of the block to -wliich the code belongs. 

The kn owl edge of the block to wliicli the code belongs is 
needed for geriorating the Procedure Header Word(PHW) (Section 
4,2j Chspter PC), 
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In the label chain the list of statement labels prefixed tc 
a PROCEDIJirUli/ENI'RY statement is terminated by a special marker 
which has one of the four values 0-3. The interpretation of 
these values is as follov^rs: 

0 - entry has arguments but no RETD'RI'IS specification 

1 - entry neither has argument nor REiURiTS specification 

2 - entry has arguments as w-ell as RlTUEi'IS specification 

3 - entry has no arguments but SSTUPITS specification 

is there. 

This information is needed for generating the PHW as 
well as to analyse RETURNS if it follows. The information about 
the type of result returned by a function reference is kept in 
symbol table which is then used by arithmetic processor for 
generatihg proper code , including the code for conversion if 
necessary. In absence of any RETURNS specification default 
action is taken depending on the first character (conveyed to 
second pass) of an entry name. All the lexical units for 
RETURNS specification folloy^ this marker word and RETURNS is 
itself ended by another marker word (all zero). Attribute 
analyses routine (Sect. 3., Chapter DC ) is called in at 
second pass to analyse the REIUWS specifications. 

The label serial no. which is stored in the second 
v/ord refers to the label number which is substituted in lieu 
of the statement label name The label counter is increased 
by 1 for ordinary labels, and by 3 for entry names. The reason 
for increasing it by 3 for entry names is as follows. 
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If L is the value stored in the second word, I refers to 
the address where the code starts, L+1 refers to the address 
of prologue list (Section 4.2. i. Chapter PC ) and 1+2 refers 
to the address of the PHW which is stored in the symhol table. 


2.5.1 Need for Chained List : 

Because of the nested structure of blocks it becomes 
necessary to maintain a chained-list of all the statement labels 
defined. At the end of the first pass this chain is followed 
to sort out all the label definitions according to the block 
serial no. (The second pass processor at the beginning of a 
block loads all the label definitions for that block in the 
symbol table). Eor this chaining a table called 'label table' 
is maintained by the EPP, which has one word per block and 
stores the starting address vtiere the list starts for that 
particular block and the end address v/here the list ends for ; 
that block. The list is made in the free core area starting 
at the lower address. 

2 . 5.2 Actions t o be Taken at the Time of Opening a New Block: 

It is assumed that there exists an imaginary block usiiich 
encompasses all the external procediires, and beginning^ 

block '0* is considered to be open. Hence a label table 
entry corresponding to block 'O’ would be made to point to the 
first free cell in core. 
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low when another block is to be opened, the block which 
was open till now is to be temporarily deactivated till the 
matching Eli) is found for the new' block which would reactivate 
the deactivated procedure, for this an extra w;ord is added at 
the end of the list and its address is put in the address 
portion of the corresponding label table entry. The word 
whose address w^as till now; there in the address posit ion jalso 
gets the address of the added v;ord, thus making a forward 
linkage, low an additional cell is added at the end of the 
list and its address is stored both in the address and the 
decrement position of the entry corresponding to the block to 
be opened, in the label table. 

2 ♦ 5 . 5 Actio ns to be Taken at the Time o f Closing a B io ck : 

Y’lhlle terminating a block, its predecessor block would 
have to be reactivated, fhe closing of a block involves adding 
a word containing zero, ( erving as the end of the list marker 
for this block) and putting the address .of this added word into 
the v;ord w;hose address was stored in the address portion of 
the corresponding entry in the label table, thus -making another 
forward link, Eor reactivating the predecessor block, one more 
w/ord is added and its address is then put in the word whose 
address was stored in the address portion of corresponding 
label table entry and in the address portion of the label entry 
itself. This completes making the necessary forward links. 



2.5.4 Spe cial Treatment for Britry_ Stajte ment 


Ihe entry statement deserves a special treatment 
"because though the statement label prefixed to it occiirs 
inside a procedure block, yet it logically belongs to its 


predecessor block which ?/as open before this block. This is 
in keeping with the treatment given to the primary entry point 
i.e .5 statement labels prefixed to the PROCEDUEE-statement. 
Thus the whole process of deactivating the present block, 
opening the predecessor block, entering labels, closing the 
predecessor block and once again opening the present block is 
to be followed. To bring out the point consider the following 
example: 


BIAIH:FROCEDURE OPTIONS (I&ABT) ; 

L1 :l2:l3:b4:S-1 ; 

AP1 :IP2:iP3:l’ROCEDUKB (A,B) ; 

DO-1; 

15:S-2| 

AE1 :IE2. -ENTRY RSTUR1^S (CliARACTER) ; 
L6:EifD IP2; 

L7:S-3; ^ ^ 

A)4:PR0CEDURE (A) REl'uRITS (REAL); 
L8: S— 4 
B1:BEG-ni; 


« 

SICD B1 ; 
L10:L9:D0-2; 

r- . 

D-o; 

EilD MAIN; 


The label table for the example given would be as 


follows: 
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START EijR Block Name 

A^DR. ABBR. No. __ 

0 imaginary 

1 MAIN 

2 AP1,IP2,AP3 

3 AP4 

4 B1 


0 

75 

5 

73 

22 

43 

58 

71 

64 

65 


Type 

Procedirce 
Procedure 
Procedure 
Pro ce dure 
Begin 


Various linkages in the label chain are shown in the Pigure 


PP-1. 


Notat ion; 

1. All cells marked '////’ are control cells vAiich are 
added to follow the linkages. 

2. All cells marked '''AWX' (3,20,31 and 49) represent the 
type of entry names (presence/absence of arguments and RM'DRITS) , 

3. All cells with ’s' (3S and 56) are the end of RETURNS 
markers. 


At the end of the first pass the label out putting routine 
starts from the zero-th block, takes the starting address from 
decrement, follows the chain and at the same time outputs 
the chunks of words till the control word containing 0 (end 
marker) is reached. Same process is then repeated for other 
blocks also. This process autom*atically sorts the labels 
according to the block no. 




> 19 - 4 - — >^7:191^— £->|.5oig 
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An interesting case is ?4ien there is no label defined 
in a chunk. The two control words come next to each other in 
such a case. In case of multiple closure this process for 
’kliO’ statement is followed for each of the blocks v;hich get 
closed because of the multiple closure, as if an SED statement 
was explicitly provided. This results in a cluster of control 
words as is evident at the end of the chain in Fig. FP-1. 

2 . 6 Ma king a lame Table : 

The actual name string for a S 3 nnbol or identifier exists 
only in first pass. Second pass does not even get a feel of 
actual name string except in cases where it is absolutely 
necessary to convey the act-ual name string to the second pass. 
The name table is organised as a HASH TABIE of dictionary type. 
There is a table of size 1024 which stores pointers to actual 
name strings which are stored in words taken from the 'high 
core side. 

Representation of an identifier, that is transmitted to 
the second pass is as follows 

— — j 

t 

2 I 
i • 

|(1 if first character is I-E 
b otherwise 
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used in G-ED/PUi DATA statement, since first pass does not 
analyse the declare statements and as such it is ■unaware of 
elements contained in a major/minor structure. 

One extra feature of this compiler is that it allows 
the programmer to use procedures yritten in ’lltlP’ hy making 
a declaration DECLARE name IfiAP; 

In such a case also, SEP would require the actual name 
string of ’name' so that an EXTERII card could he generated. 

This restricts the length of ’name’ to less than or equal to 
six characters. 

2.7 Before discussing f'urther about other activities of PPP 
it would he appropriate to talk about the stack mechanism incor- 
porated in EPP, which is needed for making logical decisions 
about multiple closure, matching lE-THEN-ELSE etc. The stack is 
constantly being updated thro'ughout the EPP. The following 
statements either add/delete cells to/from the stack 

DO 

BEG IB 

PROCEDURE 

IE 

ELSE 

Deletion is done by other statements also, only if the 
top of the stack is of ELBE type. 
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Pon pat o f the Stack Gell : 


J 

! 

Shielded 

If number 


last in stack 
of same type 


’ 

11 

/ 

12 


13 


14 


15 


16 


17 


18 


Type 


Description 


0 


DO 


1 


PROCEDURE 


2 


BEGIN 


'7. 

J 


IE 




THEN 


5 


EISE 


L1-L8 are the name -ke3' -nos. of the statement labels prefixed 
to the DO/BEG nj/PROCEDUBD statement 5 any of which can he used 
in the EHE statements. I'his puts a limit of 8 on the' no I of 
labels that ean be prefixed to either of D'O or BEGIH or 
PROCEDURE statements. In the absence of labels prefixed to 
these statements, all these fields would be containing zeros. 
If only n(n<8) labels are used then the remaining (8-n) fields 
would be containing zeros. Type serial no. is the serial no. 


iType of; Type last in 

jthe I serial Stack 

ice 11 ! number Y/y 
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of that type of statement e.g. for a DO type cell it will 
he DOSRilO, and for a procedure/he gin type cell it will he 
block serial no. 

The address of the top most cell of the stack is 
stored in the location 'LSTAITI’ so that the stack could be 
traversed back words. The address of the top most cell of 
do type and block type, cells are also stored in the locations 
LASTDO and ISTBLK respectively. These are needed for making 
various decisions. 

2.8 Olassification of Statements : 

fPP maintains a buffer where it goes on storing the 
lexical units constituting a statement. Some of the statements 
can be recognised immediately by looking at the next lexical 
unit e.g. a DO statement since either an identifier * or is 
to come after DO, if it is to be a DO statement. Care is taken 
here to see that PL 7044, does not have any reserved word hence 
D0:D0; is a,v valid construction where first DO is used as a 
statement label, and second 'DO* is used as a key word represent- 
ing a ’DO’ statement. This can go to any extent, some interest- 
ing examples folio?;. 

(1) DDCLABE IP LABEL; 

THEN: IP THEN ^ IP THEN IP = THEN; 

(2) BETDSN : BETLW (RETURN); 

(3) DSCLiRE THEN LABEL; 

IP: IP THEN THEN THEN = IP; 
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PL 7044 has certain statements which cannot Le recognised 
by a fixed number of look-aheads. In such cases a decision is 
taken only at the end of the statement one; such example is as 
follows; 

uEGMPL (AjBjC,!),!) REAL; 

LSCLABE (A,B,C,D,S)=HEAL; 

First statement is a ’DEGLAilS’ statement where as the 
second statement is an assignment statement. All those statements 
where a left parenthesis can occur, after the key words (viz. 

.FORiviAI', BETUM, LECLABE, EFIRY, PROCEDURE, IF, ELSE, DISPLAY etc.) 
fall into this category. 

In such cases a note is made about the first keyword and 
at the end of the statement presence of an = sign (outside parenthe 
sis) is determined to see whether it is an assignment statement or 
some other statement. Only this test is not sufficient in all the 
cases, then some other deterministic tests are made to ensure that 
the type of a statement is correctly determined (e.g. IF(A+B)*C 
= 0 LHER , . . ; ' though this statement has an = sign outside the 
parenthesis yet it is not an assignment statement.) 

The FPP output for a statement is of following type 


I , 

j *ZZ_ 

I Statement type 

I ^ 

f Statement number 


header 


i Actual Code 


i 
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Statement no. is conveyed to second pass so that in case 
an error is detected in second pass, it can be properly referenced 
to the program listing generated in first pass. However all the 
statements are not outputted in this form viz. EKD, BEGIN, zero 
argument entry etc. fhese are outputted as follows: 


777 ... 

1 

77 1 

Identifying 

Information 

1 • 

: Statement code 1 
i i 


(Ihe identifying information is block ntmiber, do number etc. 

The first word is a marker word v/hich demarcates two state- 
ments from, each other. This is used to check the correct trans- 
mission of code from first pass to second pass. At the end of 
a statement next vrord on tape should be this maker word only. 

2 . 9 Matching IF -THEN -ELSE : 

’ lE-statement ' is one of the most powerful logical mecha- 
nisms provided in Pl/7044. li' statement is a compound statement, 
because it contains other program elements including do-groups 
and begin-blocks. It is this nesting property which imparts a 
strong decision making capability to the lE-statement. The 
nesting of program elements and IP-statements can continue to 
any desired level. 

2.9.1 General Perm of IE statement is as follows: 

IE scalar expression THEN-Unit-I [EESB Unit-23 
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Syntax Rules : 

SR-1 ; 

Each Tmit is a DO-group, a begin block or any statement 
other than END^ERTRIjEEGIiAKE, EOEIiul or PROCER'uRB statement. The 
■unit may have its own labels. 

SR-2 : 

The IE statement is not itself terminated by a semicolon. 

IE statement has tv/o forms: 

(i) IE scalar expression THER Unit-1. 

(ii) IE scalar expression THEN Unit-1 ELSE Unit-2. 

The job of EPE is to supply a Pummy ELSE for every IE. 
Statement of Type-1 . 

Since either of the units can be an IE statement, this 
job of matching ELSE and IE has to be done with the help of a 
stack. EPP on meeting an H' statement adds two cells to the top 
of the stack, (one of IE type follov/ed b 3 ’’ a second cell of THEN 
type). The IE statement is broken into tY/o parts for analysis, 
first part consists of 'IE scalar expression THEU* and the 
second part consists of 'Unit-1'. After analysing the first part, 
Unit-1 is given to EPP as if a fresh statement is starting. EPP 
generates three labels for every IE statement analysed. 

1) Success label: It is generated before the code for *Unit-1 • 

Yvhere control is to go if resulting bit string contains at least 
one-'1'.(The scalar expression is evaluated and converted to a 
bit string, if necessary). 
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Failure label* T+- -lo ^ 

gsneratea before the code for >irnit -2 
Where oortrol re to go If resulting bit string oontalns all seros. 

end of code for -gnit-S- 

where control would oome after gn-'t-i ■ , . 

1 IS executed in case oi 

success. 

lor the IF statement of Ivne 1 -^h ^ n -u 

label 

to same location. 

, _ =-ta^^enents{ including n? but excluding those 

libted under 5R-1) pop the top .ost cell of the stac. if it 

appens to be of IHEK type and generate a success label. The 

popping off of the ’THEJI' type cell resul+Q • + 1 , 

^ results in the exposure of 

ype ce 1, which can be popped by an ELSE statement only, 
automatically matches the Innermost ELSE and IP 
statement. Por all the statements listed in Sh o +n - 
constitutes an error. ’ 

As in the case of IF-statempn+ wctm- 4 . o. 

ement, ^ISE statement is broken into 

two parts - 'EISE- and *Unit-2’ -duit o tt 

^ . unit-2, like Unit-i, is 

resubmitted to the FPP for analysis, .^en an ELSE statement 

as met and the top of the staclc is not of IP type, it indicates 

either an e.xtra ELSE - or a misplaced ELSE and constitutes an 

error. If top of tne statement happens to be an IP type cell 

it is oonvertea to an ElEffi type cell and failure label is 
generated. 
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Now all those statements v/hich have been given the power 
of popping the iHSIT type cell, have also been given the pov/er 
of popping ELSE type cell, if the top of the stack happens to 
be an ELSE type cell. For statements listed -under 3R - 1 , this 
situation also constitutes an error. For all the statements 
(except DO and BEG HI) which pop off an ELSE type cell, an end 
label is generated at the end of that statement. 

Though 1)0 and BEGIi? statements also pop off the ELSE 
type cell, (they carry this information along with them) yet 
they do not force the generation of end label. This is done to 
shield the ELSE till a matching END statement is found and then 
the end label is generated. This ensures that the DO-group or 
EEGIN-block is treated as a 'Unit ’ . 

If any statement other than ELSE finds the top cell of 
the stack to be of the type 'IF', it indicates that a dummy 
ELSE is to generated to match the IF. In such a case the LF- 
type cell is popped off, end-label and failure-label are generated 
at this point and this process is repeated as long as the top of 
the stack contains an 'IF type cell. This m-echanism, thus shields 
both IE and ELSE, if • Unit-1 or Unit-2 happens to be DO-group 
or BEGIK-block. The foUo^djig example brings out all the 
essential points. 
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E-1 L1:P0^; 

S-1 ; 

IPg E-2 TltEEg L2: ; 

S_2| . 

Ili' E-3 xHEE„ 

J 3 

lE^ E— 4 '-I HEX'T^^ 3— 3 

/* GSHERAEIOII OE ELSB^ ME ELSE^ EXPECTED*/ 

S-4; 

EED E2; 

/* GEHERATIOH m EXPECTED */ 

:S-5 THEE^ EOBIAT (ll); /* ILLEGAL STATEIEET 
POLLOV/S THEE */ 
jiiLSEr- S— 6 ; 

S-7; 

EED L1| 

ELSE^ LArDO^l 
3-8 5 
EIID L4; 

S-9; 

/* ILLEGAL ELSE FOLLOWING */ 

ELSE^ S-9; 

-K 

Eote: Subscripts refer to the serial number, given to the IF 

statement and they are used for sho?/ing the pairing of 
IF-THEN-ELSE. They are not part of PL 7044 Syntax. 


E-represent an expression. 
S-represents a statement. 
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Consider the follov;ing snapshots. 



Before S-4 After S-4 


Since top of the stack contains and IB^; ELSB^ and 
EIiSE^ would he generated hy the BPP. 

As can he seen from the stack, BO and BEG-Iil are shielding 
the IB statements, IB^ would he exposed only when a matching 
end is found i.e., at END then top of stack would have IBg 
since BEGIN would have heen popped off hy END statement. No?/ 
since next statement is not of ELSE type (H'^ type), hence 
ELSEg would have heen generated, popping IB^ thereby. 

(ii) i 

THEN- 'When BOE-iAl ( 1.1 ); statement consults 

IB^ the top of the stack it ?/ill find 

DO^ IHEN on the top of the stack. Hence 

IB^ error would he given. 

at THEN^ 

5 
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After 

at SISB^ 

No?/ the NOg will pop off the BLSE^ , but it ?/ill mark the 
presence of ELSB^ on the top of the stack so that end label 
could be generated once the corresponding END is found. The 
stack after processing of DO^ ?/ill be 


(iii) 


H'. 


L... 


Be fore 



flag which says that an END label is to be generated 
after corresponding El'ID is found. 

(iv) After the processing of END 14 .; our symbolic stack would 
be empty and the occurrance of ELSE v/ould constitute an error 
because there is no matching IP in the stack. 

This scherae takes care of misplacing of ELSE also (to 
some extent). Consider the case v/hen the cards 'El® L1 * ; and 
’ELSE L4 jD 0; ' get inter changed, say because of shuffling of 
the cards, then while trying to process ELSE L4:D0; the top of 
the stack would be found containing DO^ and it ?/ill be sufficient 
to sho?/ the error. 
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2.9.2 Purmay ELSE and Dtumny THEIT: 

It would "be interesting to note that there exist, some 
situations v/here even shuffling of cards v/ould result in logi- 
cally correct programs ! ! 

Consider the following two examples., 

E-1 IHEiL LO; 

S-1; 

IE 2 L-2 THEKg S-2 | 

SLSE^ S-3; 

EilD; 

/* ELSE^ would be generated */ 

Now interchange the cards END; and ELSE^ S-3; resulting 
in the follov/ing program. 

IE.J E-5 'iHEH^ PO; 

S-1; 

IPg E-2 IHEEg 3-2; 

BISE 22 would he generated */ 

Eia) ;; 

ELSE.jS-3; 

It can be seen though the pairing of ELSE-3 card changes 
in two examples, both the programs vrould pass EPP test as far as 
lE-IHEE-ELSE is concerned, A dummy ELSE statement is provided 
in PL 7044 iri the form ELSE; (and also dummy 'IHEI^*, but it is 
logically redundant) v/hich does nothing more than explicitly 
defining the pairing of lE-EHEN-ELSE, 
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Had this 'been done in the example given above, chances 
that the program remains . logically correct even after shuffling 
would decrease quite a lot. 

let us consider that the programmer mnted his logic to be 
exactly like that of the first program, but adds dummy ELSE 
statement, then his program y/ould look like, 

E-1 10? 

S-1; 

IF 2 E-2 IHEH2 S-2; 

ElSEg s-3; 

BHD ; 

ELSE ^ I /* Dxjmmy ELSE */ 

Noy/ if the same two cards get interchanged, following 
program v/ould result. 

IF’^ B-1 THEK^ DO; 

S" 1; 

112 E-2 l'HBrj2 S-2; 

/* EISE2 WbH 3E GBIIERAIBJ */ 

El'S; 

EISE^ S-3; 

ELSE ; /* AIT EXIRA ELSE, ERROR */ 

Ihus EPP would detect the error in this case. 
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2.10 Classification of EUD and Multiple Olosur e: 

General format of EMju statement is as follows: 

option -1 EIJI); 

option -2 m±j label,” 

Classification of EMi- statement of option -1 is a very 
simple job since the cell on the top of stack would dictate 
the terms, *EHI)* would be closing a DO-group if the top of the 
stack happens to be a DO-type cell, otherwise it would have 
been used to terminate (close) a PROCBDURE/BBGIN block. (Both 
BEGnT/PROCEDlJilE blocks get similar treatment from BED state- 
ment as far as BPP is concerned) . 

In case top of the stack is not of BO/BEGIN/PROGElIIRE 
type then it can be of rF/IHEl'T/SlSE type. The action taken 
in the latter situation has already been discussed under the 
head ' IP-THSH-EISE Matching'. If stack is empty when the END 
statement is met, it indicates an extra EEli and error exit 
is taken. 

If the cell being popped off is flagged to show that 
an ELSE v/as shielded by this DO group or BEGIN block, an end 
label is generated after the code for EED-statement . 

As for option 2, the name key no. of the label which follows 
END is taken and is matched against the names stored in the 
2nd to 6th words of stack cell. If the name does not match 
with any of the names stored in the cell or the cell has no 
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names (no labels used while defining a DO-group or BEGIN block 
or BilOCEDURE block) , then that particular cell is given a 
treatment similar tc that in option-1. Ihis closing goes on 
till either the name matches with some name stored in a cell 
in which case the process terminates then and there or the 
stack gets emptied in this process, in which case error condi- 
tion would be raised since either the name used with EED is 
illegal or EIQ itself is extra. 

2* 'll BQ Predecessor Table and Block Predecessor (Table : 

EPP while analysing either DO-statements or BEGIN/PROCEDURE 
statements keeps a count of no. of BO-groups used and the number 
of blocks used in the program. This information is then conveyed 
to the second pass and then to the third pass. Together with 
this, EPP also prepares the predecessor tables viz, BO-predecessor 
table and block predecessor table. Each of the BO-group. and 
block j used in the program is given a unique number, which then 
serves to identify that particular BO-gx-oup or block. The pre- 
decessor table stores the identification no. of that group or 

I 

block (as the case may be) v/hich appears before, lexicographi- 
cally, the present group or block and which is the closest to 
it. Consider the following symbolic program : 
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Bl: PROCEDURE OPTIONS (IviAIR) ; 

D1 :DO| 

D2:D0 1=1, 2, 3 I’O 10 BY 1; 

Exm Dl ; 

32:PR0CEDURE; 

B3:PR0CEDIJRE (A) RETURIIS (CHARACTER); 
D3 :D0 ; 
m'D B3 ; 

B4:3EGI1'T; 

1)4 : BO; 

B5:B0; 

EHB; 

B6 : BO ; 

ENB Bl ; 

B5 :PROCEBURE : 

END B5; 


The predecessor tables are as follows: 


Block 

name 

Bl.Ro. 

B . P . I , 

DO 

name 

BO no 

. D.P.I. 

imag 

0 

0 

Bl 

1 

0 

Bl 

1 

0 

B2 

2 

1 

B2 

2 

1 

D3 

3 

0 

B3 

5 

2 

B4 

4 

0 

B4 

4 

2 

B5 

5 

4 

B5 

5 

0 

D6 

6 

4 


A DPI (BO 

predecessor 

no.) of 0 

indicates 

that there 

is no 

BO group 

enclosing thi 

.s BO group 

. It is assumed for 


logical completeness that there exist an imaginary block which 
encompasses all the external procedures and built in procedures. 
It is given a block no. 'O’. 
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These tables in fact preserve the information about 
lexicographical relationship among various blocks and DO groups. 
This information is used very often for arriving at various 
logical decisions regarding scope of names, validity of a 
reference 5 sharing of first order storage area etc. These would 
be explained in the following chapters. 

2*12 Sepa rati o n of Specifica tions an d Declarations fro m the Text : 

The PL 7044 compiler puts one more restriction on PL/I 
language. All the declare statements must be placed immediately 
after the BEGIL, PROCEnUEli or EllL'RY statements, as the case may 
be. Error condition is raised if a DECLARE statement is found 
at any other place. Em’ther after an ENTRY statement, only 
specifications can be put. No declaration should occur after 
an ENTRY statement . 

EPP detects the changeover from the declaration and 
specification phase to normal text phase and it generates a 
message for second pass to this effect. 
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JmST PASS PROCESSOR Plow Charts 


ITOimCMTURE: 

1. AttrilDute Sets: 

3ET-1 : 
SET-2: 
SET~3 : 
,SET-3A: 

SET-4: 

SET-5: 

2. lexical Units: 

IDEHT : 
lUT: 

Name ; 
Operator : 
PRW: 

3 . Rout ine s : 

AUCEL. : 

ADCEL: 

BIECI.S: 
END3PC : 


BEG IP, E>CD, DO, STOP, ELSE, EXIT 
PLOW, EOF LOW 
SET-3A U SET-4 

GO , GOTO , CALL , CLOSE , GET , OPEH ,Pt]T ,EEAD , 
WRITE , DO , DECLARE , IF ,ELSE 

ALLOCATE , DELETE , FETCH ,FREE , LOCATE , 

Oil , RELEASE , SIGUAL , UNLOCK , EEl/ERT , 
REWRITE 

DEFAULT , DELAY , WAIT 


Identifier or non keyword 
Integer 

Identifier or Keyword 
See Appendix-Al 

Pseudo Reserved Word or Keyword 


Add, one six word cell on the top 
of the program stack. 

Classif 3 ’- the top most cell according 
to the call (IF/THEN/BLSE/DO/BEGIN/ 
PROCEDURE). 

Close the block, presently open and 
update various tables and flags. 

Check that the specifications and 
declarations are over for the block 
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EIQSP]? ; 

EIWBin? : 
GEIffilS ; 

GSEUIil:: 
0 lie COE: 
OUT'Puii : 

PUT'IEL: 

REMGL. : 
RHdCEE; 


REMCE1 




RSSE12 


TSTCEI. 


"variotis flags so that DECLARE 
statement can occur, for the new header 
statement (EROCEDURE/EEGIN/lITTRY) . 

Enter the lexical imit in the buffer. 

Generate a di^rny ELSE statement. 

Get the next lexical unit. 

Output tne tj^pe of statement. 

Output the boay of the statement 
col...ectec in the buffer. 

statement-labels prefjjced to 
p-eneratA^a^^"^ label-chain and 

picSn-.“laS? 

Generate a success-label, if the 
top most cell is of IHEIT type. 

a false-label and end- label 
Ut the end Ox current statement), if 
the top most cell is of ELSE type. 

Generate a success-label, if the ton 
most cell is of THEH type. ^ 

Shield the ELSE, 
of ELSE type* 


top most cell is 


Iiixti.* xxsa uions foi’ a new statement. 

xiiuiiiisations to be done if a label 
definitioz: is obtained. 

if top of 

tae stack is oi THEI or ELSE typL 
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4. SymlDols and Flags: 

ASli'TCD: Code for assignment statement. 

OlixSTlI: Represents the continuation of the 

same statement ^.e. after THEU/ELSE) 

EOF El: Flag used to distinguish thetween an 

EiTE closing a DO-group and an Elffi 
closing a hlock. 

FFEEQ: Flag to decide the presence of 

outside parentheses. 

iBLIFl: ’lahel Initialisation* flag. 

RXISTH: Represents the start of a nevi statement. 

OHEBIK: Flag to distinguish between an END 

closing one group/block and an END 
effecting multiple closure. 

FRNCiTI: Differential count of parentheses 

5, Error Exits: 

(Action talc*?n - sjcip to the next statemeht) 

ER: Miscellaneous errors 

ER.-2: Illegal statements (Not allowed 

in PIj-7044)* 


Note: 1. lexical units for which a branch is absent in a 
decision box, const '.tut e error. 

2. Extended lexical aD:ii’ities have not been shown in 
the flow chart. 



5T-36 


( START ) 

^ ^ 



jOAlL F .ESET11 ) 



IBEITT 

Integer 


iPRW 
* (PRW-2) 



<:P M-1 £ SET3 ?> 

Iyes 

i 

’< LAST li^MIT ?J>- 


NO 


IKT 


jPRW 
Jk 


./ PRW-1 Expected 
name? 




YES 


PRW-1 'aO ' ? V 
< > 
•■, PRY/-2 *T0 ' ? / 



ER 




(EPP-1) 



OAH, 

EK’IBUH' 


jOALIi ENTBTTFi 


Others 


OTHERS 

,lJE^_JiEXUlIIT ?>. 


^PRiroiCT=0?^ 


^ 

I FNBEQ ^ 


iiExmiiT?VV^ 


.ihbn 


.PRHCM’rrn? 


PHREQ — ve 


others XLRXTTttt'pp 


iHjfEQ _ve ?^ 


f^MTCB ^ ASG-MfiBi 



') ’ or 
operand 


Output the state- 
Bient labels by 
following the 
label chain , 
according to 
the block no. 
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= 0 XHO 

V, and N. 

NM ST IE XUITIT^’) ' ?X 

lES ]/■ 


/ PRIICffi' '=• 0 
X and 

XLIST .IS:iDITlT= ' ) ' ? 

^ ^ — i ^ 

^'ISS 


i LBXiili 



EKTBIS' 


STidS-T 


PULL?> 



•EilTER IIT BUFFER! 


REI'URIJ 


B V> 


i CALL 

! ENTBLE 




iSimOD^ ASGNGB! 


-!GALL IKTBUF 



< REi S -' JEXOT > 

! ! Otliers 


<1PR¥-1 e SET5?>- 



<PMO I?T^O ?> .;ERECHf=p'?V'/ 


.^S 




ff <t)p er a'i: o r 


YES _ si- 
EP <PRV7-1 e SET1?> 


ER W < PRW-1 e .S$g2J> 
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Classify statements 
I accordin g to STMTCD 


V 

DO 


‘4' 


BiSGIK 

sj/ 

^ CAI'l 'I 
LSl^Ll .1 


jIiIj OilJ 


.± 


4 PROCSDUiffi J/ SKD 

T-P I 



IF 




'I'lRY 


, CAIL 

J IFKDSPFj 

fomn ' 

; wiPLinr t i 


IhEMCn 

I 


3Z 


FiLLBIrf — ve 

r ~~~r^ — - 

CAIL ADCEI.’ 
CALL PUTLBL 
CALL' OUTCOD 
CALL OULPUT 
, CALL ADCEL 
:LCO[rO KXSff.I 


^■^i'op of stack \ ^ 
\_lRQCSDUIGi 
YES A 




Al 


CALL REMCBI 
CALL ADuEL. 
CALL PUILBL 
C.ALL OUTCGD 
CALI OC'TPU'j? 
CALI AjXJEL 
GOTO GKTSTM 





CALL PUTLBL 
CALL OUTCOD 
CALL OUTPUT , 
GOTO NXTSTM ! 


Can 
DSCLAliE 
statement 
occur? 




YES 


/^op of the\ 

o -h o /-V TT'^O V 


’/'rA 


i::.o 


stack- IF? 


3U- 



I Convert the 
j cell to LLSE 
type cell 
GOTO CIvTSTM 


(EPP-4) 
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AU.AL^SI3 OF DEoLAhATIOKO AND 0!fMB0D TABLE MANAGEMENT 


1 • Declarations and Declare Stateme nt: 

1.1 Declaration : 

An identifier in a PL/l program may refer to one of many 
classes of objects. For example, it may represent a variable 
referring to a complex n-umber; it may refer to a file; it may 
represent a variable referring to a character string; it may 
represent a statement label or represent a variable referring 
to a statement label. 

In a program a given identifier my be established in 
different parts of the program as different names. For example 
an identifier may represent an arithmetic variable in one |art 
of a program and an entry constant in another part. However, 
these parts can not overlap. The recognition of an identifier 
as a particular name is established through declaration of the 
name. Declarations may be explicit, contextual or implicit. 

1.1.1 Explicit Declarations : 

Explicit declarations are made through use of the DECIiARB 
statement, label prefixes, and specifications in a parameter list. 

1.1.2 Oontextual De clarat ions : 

The sjrntax of Pl/l allows unqualified identifiers appearing 
in certain contexts to be recognised as a name without an explicit 
declaration. Contextual declarations can occur with Builtin 
procedure names and file names. 
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1.1.3 Implicit Declaration : 

An identifier that is neither explicitly declared nor 
contextnally declared is declared implicitly. Other attributes 
assigned to an implicit declaration depend on the initial charac- 
ter of the identifier. 

lor details about scope of a declaration, explicit declara- 
tion, contextual declaration, implicit declaration, establishment 
of declarations, syntax rules of DECLAEE statement etc., the 
reader is referred to the PL/I language specifications. 

1.2 Declare Statement ; 

Declare statement is a non executable statement that 
explicitly specifies attributes which are to be associated with 
a name, A declare statement may have a label prefix. On transfer 
of control to such a label, the label is treated as if it were 
on a null statement and execution continues with the next exe- 
cutable statement. The general format, syntax etc. is shown 
in Pigure DC-1. 

The routine which analyses the declare statement would be 
explained with the help of the following example: 

DECLAEE A READ, B, 1 C STATIC, 2 D, 

5(S REAL, I FIXED), 2 E, 5 F, 

(8 G, 7 (H REAL, I)(10),J LABEL), 4 K REAL) , 

2 H, (((X,Y) REAL, K) DECEiAL, L LABEL) 

STATIC EXTERNAL; 
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General Poraat : 

IJion factored : 

DECLaRE [level] identifier [attributej ... 

[^, [ievelj identifier j attributej 
Eactored: 

DECLailE declaration list; 

where " declaraction list" is defined, as declaration 
declaration [,declarationJ . . . 
where " declaration" is defined as: 

[integerj { identifier j (declaration list)] 

|[( dimension-attribute)]! [attribute. . .J 
Examples : 

Eon Factored : 

DECL/dlE I^mLY (10), 1 R, 2 B EM, 3 0, 2 E; 

Factored : 

1. DECLARE ((i. FIXED, B FLORL) SIALIC, C) EXTEREAL ; 

Ihe above declaration is equivalent to the following 
declaration 

DECIuiidS A FIXED SIADIC EXDEREAL, B FLOAI SIATIC EXIEREAL, 
C EXTEREAL; 

2. DECLARE 1 A AUTOIiAIIO, 2 (B FIXED, C FLOAI , D CHAR(IO)); 

The declaration is equivalent to the following 

declaration: 

DECLARE 1 A AOTOIVIAIIC, 

2 B FIXED, 

2 C FLOAI, 

2 D CHARACTER (10)| 

Figure: DC- ij 
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^ * 5 Organizatinn : 

i'he declare statement has three modules which are called 
depending upon the type of declaration being processed. T 3 rpe- 
of -declaration refers to one of the following: 

Ordinary or non structure declaration, 

ii) Structure declaration, and 

iii) Factored declaration - 
3-) Padjorod ordinary 
"b) Paciored structure 

In the above example, three types can be identified as 
follows: 

Ordinary declaration- 
A READ, B, 

Structure declaration - 

1 C SMIC, 2, D, 2 H, 

Factored declaration - 

a) Factored Ordinary - 

(((X,Y) READ ...) STATIC SXTERIDID,' 

b) Factored structure - 
3(E READ, I bheD), and 

(8 G, 7((H read ... ReaE), 

The declare routine has one coordinator to coordinate the 
activities of these modulus. Depending upon the type of the 
lexunit under inspection, the coordinator calls the appropriate 



modtile. Once p module is through with its work it returns 
control to the coordinator which asks lor the next lexunit 
and the whole cycle is repeated till a *;* is met. It 
control is re tunned to the main executive. 

The main job entrusted to the declare statement is the 
construction of the symbol table. To do the attribute analysis, 
declare routine calls various Attribute Analysis Routines (AAR) 
which assign storage, generate outpiit , if any, for doing array 
allocation and initialisation's: generate prologue list entries 
in case of formal parameters. 

AARs have been discussed in section 3 of this chapter. 

1.4 Description of the Modules: 

I - I "’ ■■ ■■ ■■ . ■.I.. ■! ■ 

A short description of the three modules follovrs. 

1.4.1 Ordinary Declaration : 

Appearance of a ’name ' signals the presence of ordinary 
declaration and ordinary-declaration ’module is called. This 
module enters the symbol in the symbol table by calling the ENTER 
routine and then calls the AAR(ATOFJ)il) , which analyses the attri- 
butes for ordinary declaration and finally returns control to the 
coordinator. 

1.4.2 Structure Declaration : 

Presence of an integer as the first lexical xinit in the 
new sub-field indicates the declaration of the structure. 
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Coordinator in this case calls the structure declaration module. 

This module checks that the integer should he *1*, since a ma;ior 

structure can have a level number of '1' only, As usual this 

symbol is entered into the symbol table as major structure. 

Structure number maintained, by the compiler is increased by one. 

This structure is then referred to by this structure number 

throughout the oompilation phase. AAR (MJSTRC) is called which 

/ 

does various initialisations for structure declaration in the 
attribute analysis routine. It also finds out about the scope 
and storage attributes those would be applicable to the entire 
structure, since scope and storage attributes can be declared 
with major structure name only. In case of a formal major struc- 
ture, a prologue list word is also outputted. 

Ror processing a structure declaration, a stack is used 
v/hich has one entry for each of the items declared in a structure. 
Each factorisation is considered to be one item for this purpose. 
Since the level numbers used by the programmer need not be conti- 
nuous, the compiler assigns internal level numbers, which are 
continuous. Consider the follo?ving example; 

DEOIARE 1 A, 3 B, 10 C, 2 D, 15 E, 20 E, 10 G; 

The level numbers assigned by the compiler would corres- 
pond to the following declaration: 

DBCIARI 1 A, 2 B, 3 C, 2 D, 3 E, 4 R , 3 
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Internal level umbers becoise necessary to bring xini- 
lormity among various structure declarations so that one number 
corresponds to one unique level. 


The format of the cell of the structure -stack is as 
follows : 


attribute cell 
Addre s s 




PDLN ! GDI® 


EmDP 


where , 

PDM : Programmer Defined Level Number 
CDM : Compiler Defined Level Number 
DaDG ; Explicit Attributes Defined Elag 

= -ve if attributes are defined explicitly 
= 4 -ve otherwise. 


Eor entering a minor structure name or a element name in 
the symbol table, covering item address and compiler defined 
level numberare needed. To determine the covering item address, 
stack is searched from top to bottom. At each cell, the PDLN 
stored is compared with the PDIII of the present item. The first 
item which has a PDLI less than the DDLN of the present item 
is the covering item. The address stored in that cell is then 
taken as the covering item attribute cell address. The CDLN 
of the present item is then one more than the CDLIT stored in 
the cell found. 
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EiLuF is needed for carrying out the follovdng checks: 

1. iirray of structures are not used, since they are not 
provided in PL-7044. 

2. Level nuinhering is all right i.e. the covering item has no 
explicit attribute definition . 

3. To assign default attributesto the predecessor item if 
necessary. 

ELLP is put ’on’ by the AxiE. if it finds explicitly 
defined attributes for an item in the structure definition. If 
an item has no explicitly defined attributes (including the 
dimension attribute), the U±R gives it a ma^or type of 'minor/ 
major structure* and returns. The routine called for assigning 
attributes to minor structures/base elements is MNSTRC. 

If the CDLH of the preceding cell (lexicographically) 
is more than or equal to the level number of the present item and 
EilDP is off, default attributes are assigned to the preceding 
item and EikDI'- is put on. 

On the other hand if CLIii:? of the preceding item is less 
than the CDLL of the present item and preceding item has ELLE 
on, error condition is raised. This error can be either because 
of dim.ension attributes given to the minor structure or because 
of illegal level numbers used. 
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I'actorlsation in Structure Declaration: 

Only "base elements can be fs-ctorcd inside the declaration 
of the structure. Following declaration is illegal - 

DDCLiHE 1 A, 2(B,C), 3 D; 

I'his restriction comes because a factorisation is treated 
as one unit. All the symbols occuring inside the fe,ctorisation 
are assigned attributes j Yvhether explicit attributes are declared 
or not. The factorisation in a structure deolaration can be of 
two types. First type of factorisation can be said to be ‘level 
number factorisation’? 3(E BEAL, I FDCSD) represents this form 
of factorisation. In the second form of factorisation level 
numbers are not factored, in general. In fact second type may 
consist of first type of factorisation also as shown in Fig, DC-1. 
There is a restriction on the level nirnbers used inside the fac- 
torisation. All the numbers used inside the factorisation should 
be greater than the PDIN of the item immedi-^teljr preceding the 
factorisation. Further inside the factorisation, the PDLN should 
either be same or be in monotonically decreasing order. The above 
two restrictions jnoure that a.11 these items form sister nodes 
or graphically they are at the same level. For both kinds of 
factorisation, the co'vering item is same for all the items since 
graphically they are at same level. 
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She definition of a structure is teininated when after 
either a sjnrihol appears (showing ordinary declaration) or 
integer M’ appears (shovv'ing another structure) or a ssnnhol 
appears inunediately after one or more left parentheses (showing 
factored declaration of ordinary type). She main example in 
Dig. DC-1 corresponds to the last case. 

It the end of a structure definition, the last item is 
given default attributes, if its EDAP is not ’on'. (So is the 
case in the main example . She item. 'H' is assigned default 
attributes in this case ). 

Before returning control to the coordinator, the structure 
stack is emptied. 

1 . 4.3 Eactored Declaration : 

Eactored structure declaration has already been discussed 
in the structure declaration module. In fact structure declara- 
tion module calls this module when it meets a factorisation. 

Shis module keeps a differential! count of left and right 
parentheses (PRI'ICIH). PRECNS is increased by one for every 
left iDarenthesis and is decreased by one for every 

right parenthesis. When PRNCHS reduces to zero, factorisation 
is considered to end. 

She AAR maintains a stack, called ’factor stack’, for 
analysing factored declarations. At every left parenthesis a 



DC- 11 


DCOEDI'I 

DCSTRC 


cell 1 C added on top of the factor stack. It is needed 

to Match the right parentheels when one Is obtained so that range 

of factorisation omOfl ^ ^ 

'JeteiE-ined. a detailed description of 

factor stack is available In the Section 3. 

Ihe factor-declaration-Module calls different AAEs In 
different contexts, viz., 

for ordinary factorisation after the symbol 

e-g- ... (X RSll ... 

for structure factorisation after the symbol 
e*g- ... 2 (X READ ... 

for ordinary factorisation after the right 
parenthesis e.g. ..., (y^x) READ ... 
for structure factorisation after the right 
parenthesis e.g. ..., (x,y) READ ... 

Ibis distinction of routines to be called simplifies the 
job of the attribute analysis routine. 

Control is returned from this modlae after PMOM has 

VO aero and post right parenthesis attribute ! 

processing routine (HPOHla/aPSTRO) has been called. 


RIDRDII 


RPSTRC 
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2. Symbol Table ; 

2.1 Introduction : 

Symbol table is a repository of information about a 
symbol and as such is consulted by all the routines for 
extracting various kinds of infomiation about the symbol. 

The symbol table takes up exactly at the point v/here name- 
table of ^irst Pass Processor (PPP) had stopped. The name 
table supplies a unique 'name-key-no. ' to each of the symbols 
used in the program. Throughout the syntactic analysis and 
semantic interpretation phase, the symbol is referred to by 
this 'name -key -number ’ . 

The organisation of symbol t able proposed and implemented, 
automatically takes care of the block structure of the PL/I 
language. As and when a nev/ declaration is made in a new block, 
an additional cell is added to the symbol table and till the time 
either a new' declaration of same name is made in another block, 
or the block in which the declaration has been made is terminated 
this declaration would be accessible to the enquiring ■ routines. 
The organisation of the symbol table takes care of the default 
declarations also without any difficulty. If a symbol does not 
exist in the symbol table and call is not from I/O routines, it 
is given default attributes of arithmetic type, otherwise it is 
treated as contextual declaration of files. 
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Except in the case of label variables, the validity of 
reference is taken care of in the compilation stage itself so 
that run time overheads are minimised. Consider the following 
program: 

MIN: PROCEfUBE OPIIONS (MINS); 

declare label LABEL; 

• 

BL0CK1 '.BEGIN; 

HELL: LABEL=HELL; 

EED BL0CK1 ; 

GO 20 LABEL; 

END MAIN; 

In this example the GOTO statement will raise the error 
condition, if executed, because it is trying to enter into a 
closed block. However, it can not be detected at compile time. 

All the builtin procedures and pseudo variables are 
preloaded in the symbol table and they belong to the imaginary 
block, encompassing all the external blocks. This ensures 
that they are never removed from the symbol table since the 
imaginary block is considered to be open throughout the program. 

2.2 Organisation : 

The EPP deteirmines the total nmber (N) of symbols 
used in the program. (N includes all the pseudo reserved words, 
builtin procedures and pseudo variable names, though all of them 
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maynothave 138611, -asscl. as a symbol or name of a variable. This 
mimber is supplied by the 'fixed-table’ which keeps all these 
names.). IT is transmitted to the second pass executive, which 
takes an IT word array from the free core area and makes the 
'index-table'. Index table has one word for each of the names 
used in the program, and for each of the keywords, pseudo vari- 
able names and builtin procedure names. Attribute cell address 
of all the builtin procedures, and pseudo variables is filled 
in the corresponding word of the 'index-table' so that they are 
available all the time. Uarne -key-number assigned to each of the 
names used by the DPP is then analogous to the offset in the 
index-table. A predicate P can be defined as follows: 

P(Symbol with ’name-key-number' x is in symbol table) 

= 1 

IlTDEX(x) ^ 0 

This predicate is made use of to determine whether a par- 
ticular name exists in the symbol table. 

Index-table points to the latest attribute cell for a 
name. (Previous attribute cells for the same name corresponding 
to declarations in the predecessor blocks are linked backwards 
in themselves ). The attribute cell consists of six words, taken 
from the 'free-list' (Appendix-P) . The format of symbol table 
entry is given in Appendix - D. 
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2 • 3 .Service Routines of Symbol 'Sable : 

Proia time to time, the synhol table has to attend to 
the requests from various routines for vcirious kinds of favours, 
lor example a call to the symhcl ta'*^le can he either for adding 
a cell or for deleting a cell. Sometimes a call might he 

made for changing some flags etc. The routines doing all these 
jobs are as follows; 

EITER 

LOOKUP 

El^lBL 

WIPSTB 

ADDIDP 

nropwA 

BIBPVffl 

IKBLUIT 

A Short description of each of these routines follows. 

2 . 5.1 mam : 

This routine is called for entering a symbol in the sym- 
bol table. It is called by the declare routine and the label 
entering routine (BIITLBL) . The EITER routine is made general 
enough to take care of the declarations of structures also. 

For entering a s 3 niibol in the symbol table, a six word cell is 
taken from the free -cell-list and is added at the bottom of the 
attribute list. It also sets various pointers but filling of 
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attributes is done by the calling routine. (In case of declare- 
statement it is done by the attribute analysis routine whereas the 
the label-entering routine does this work on its own). 

2.3.2 lOOELT: 

This is the most widely used routine out of the whole 
set. It returns the cell address of the latest attribute cell 
for the symbol. This routine takes care of (qualified names 
also. The lookup routine is so designed that it automatically 
assigns default attributes to a symbol which is found to be 
non existing in the attribute list. This declaration belongs to 
the EXTEMAL procedure, that is open at that time. If the call- 
ing routine had expected some thing other than an arithmetic 
data variable/file name, it is the duty of the calling routine 
to give out 'error'. 

Both these routines viz. ENTER and LOOKUP raise the error 
condition in case of illegal q^nalif iers, ambiguous qualifica- 
tions, non existing structure references etc. 

2.3.3 EllTLBL: 

This routine enters statement -label-definitions in the 
symbol table. Statement -label-definitions are collected by 
the first pass processor and are sorted according to the block 
serial number. At the time of opening a block all those state- 
ment -label-definit ions, belong to the block being opened, 

if any, are loaded in the symbol table. 



In case of procedure and entry names (primary and second- 
ary entry constants respectively) the syrnhol table is to be 
supplied the information about the type of result being retmrned 
also so that proper code could be generated, along with conver- 
sions if any, in case of function-reference. ‘Ibis information 
about the type of result returned can be explicitly defined by 
specifying EEHJHNS specification in the PROCEDURE or ENTRY- 
statement. In such a case the code for RE'IURNo is transmitted 
along with the statement-label-definitions by the EPP. It is 
analysed by the attribute analysis routine and this information 
is entered into the symbol table. In the absence of EEIUIHS 
specification, default attributes are assigned depending upon 
the first character of the name. 

This routine generates the ’procedure header word* 
(Appendix B) also. The address of this v/ord is filled in the 
symbol table. 

2.3*4 WIPSTB: 

To take care of the scope of name in the ssmbol table 
itself, it becomes necessary to delete all the declarations 
made in a block at the time of terminating that block. This 
routine does exactly this vrork only and it returns all the • 
cells belonging to the block being terminated to the free list. 
All the declarations 5 that were known before this block was 
opened, become active once again due to this activity. The 
index table is updated to point, now to these cells once again.' 
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All the default declarations which were made in this 
block are hooked to the predecessor block since they belong 
to the EXlERiTAl procedure and as such they remain active as 
long as Uhe EXIERITAI procedure rercainsactive , unless declared 
once again in a contained block. 

2.3.5 INEPWi, imsm, INBLUIJ, ADIiFfP: 

These four routines are used for built in procedure initia- 
lisations. IHBPWA is for initialising builtin procedures with 
arguments. INBLUN finds out the most oommonly use builtin 
procedure with a particular name. ADDIBP is for adding a oell 
with default attributes , niBPWT initialises the builtin procedures 
•without arguments. 

2.4 SYIiBOL TABLE EORIfiAT : 

Symbol table format is shown in Appendix - D. However, 
description of various pointers, their meaning and their nee-d 
follows. 

2.4.1 Pointers, their Meaning and their Heed : 

(1) Last in stack (LSTCK) : 

It is the address of the attribute cell which immediately 
precedes it in the attribute list. This is needed for travers- 
ing through the attribute list backwards. Eorward traversing 
is not needed in general, except in the case of structures 
(where forward pointer is also provided)* 
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(2) Index table offset (HCDXOF): 

It is the name-key-no. of the symbol. It is needed for 
updating the index table at the time of terminating a block. 

Also this unique name-key-no. serves as the ’name ' of the sym- 
bol and is used in lieu of the actual name (which has no exist- 
ence in the second pass). Routine analysing the BY NilvIE option 
makes extensive use of this pointer since its operation 
depends on matching names only. Routine analysing the *LIKS' 
attribute also makes use of this pointer. 

3 . last in Stack with Same Name (ISTSllil) : 

All the attribute cells for variables with same name are 
linked backwards. LSISNM points to the last cell with same name.' 
This pointer is needed for updating the index table at the time 
of terminating a block as well as for determining the proper , 
reference in case of both qualified and non-qualiffed names. 

Consider the following examples: 

DSCIARB 1 E, 2 C, 3 F, 3 H, 4 F, 2 G, 5 

DBCMRE 1 A, 2 A, 3 A, 4 A, 2 B, 3 A, 4 C, 5 E, 2 D, 

3 D, 3 E, 4 A; 

DECLARE B: 

If a lookup call is given for the qualified name ’B.A* 
symbol table will return the cell which is identified by*A. B.A*. 
Lookup routine will first consider B and would initiate a search 
for B. The first cell to be hit for B, corresponds to the scalar 
definition of B (since it was declared last). Since a • follows 
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B, this definition would he ignored. Bow a hackTOrd search 
starts along LSTSM, and in next trial it hits another B which 
is at a level greater than one and it may he taken if further 
tests succeed. Since there is no other cell with name B, 
(lS!rSl'IK=0) this cell would he taken. 

Search Strategy for the first Bame of the Qualified Bame : 

Ihe strategy followed in the hackmrd search for first 
name of the qualified name is that either it terminates at a 
major structure (level=l) or at a minor structure, if it can 
he identified unamhiguously. for example a call for lookup of 
'C.E* will turnout to he ambiguous since ’C'can not he identified 
uniquely as not enough qualification is provided for distinguish- 
ing between *(E. )C’ and '(A.B.A)O' whereas a search for ’D,E‘ will 
result in success since 03' can he identified uniquely. 

Search Strategy for an Unqualified llame: 

A search for an unqualified name stops either at a major 
structure (level = 1) or at a non structure variable if one is 
found. In case no such definition exists in a block in which 
some other definition exists at level greater than one, the 
search stops at an element which is at the highest level (lowest 
level number) in a structure provided there is no other entry 
(with same name) at level greater than one in the same block but 
in some other structure, for example a lookup call for ©''will 



terminate the search at the scalar definition of whereas 
a call for 'E’ will terminate at the major structure 'B', though 
a minor structiu?e definition exists for 'E’, ^viiich ?/ould he met 
before the former. However, a lookup call for 'C' will turn out 
to be ambiguous because of the same reasons as for the failure 
of’C.E’. 

Search Strategy for the Rest of the Qualification: 

There are two methods for completing the LOOKUP of a 
qualified name once first name has been identified uniquely - 

i) Top to bottom search, and 
ii) Bottom to top search. 

In top to bottom search we start from the cell which was 
looked-up last time and follow the forward chain there csnwards 
and go upto the range of the minor/mag or structure definition 
wiiich was looked up last time, luring this travel that element 
is S9].ected which is at the highest level in this minor/major 
structure, if one could be found unambiguously. 

In bottom to top search, the backward pointer is followed 
from the cell corresponding to the latest definition of the name 
presently under consideration till the cell looked up last time 
is reached. 

This compiler employs the first meethod. 

Search is initiated at the next to the one looked up last 
time and is uermined when the range of the minor/major structure 
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ends. At each step the name is matched v/ith the name stored 
in the cell to determine whether they are same. If the names 
don't match, search continues, ctheirwrlse if no other definition 
of the same name under this minor/ma^jor structure has heen found 
till now, it is noted and search is continued. However if one 
definition with same name has already been found when this cell 
is found, the level of the alread;!- found item is compared with 
that of the present cell. If old cell is at a higher level, it 
is retained and search continues. If old cell is at the same 
level, a flag is put on to indicate the presence of two elements 
?;ith same name at same level (but covering elements vrould be 
different) and search is continued. However if old cell is at 
a lower level, the present cell is taken and the flag is reset. 

To speed up this process an extra test is performed at each step 
(when the names match, of ccinrse). If the level number of the 
present cell is one more than the levelnumber cf the item looked tp 
last time, the present cell is taken ana search is terminated. 

This is possible since EIITIIR routine makes sure that two elements 
of same name at same level do not nave same covering item. 

At the end of the search if flag is found ‘on’, it 
indicates ambiguous qualification. If no cell is found at the 
end of the search, it indicates illegal qualification. Consider 
the lOOKHP call for 'A.A'. First 'A' would be found to be the 
maDor structure according to the strategy already discussed. 

The search for second ‘A'would stop at the next ’A ‘ it self since 



it is at level 2(1+1) i.e. one toore than the level of first A. 
However in the case of 'A.E', search would stop only at the end 
of structure 'j*' and •(il,D.)E' would he the result of the search. 

A. C. )E ' would have been ignored since it is at a lower 
level than '(A.E.)B‘). A look up call for ’E.H’ would be 
ambiguous because lOOEUP routine can’t decide between ’E.C.H ’ 
and ’E.l.H’ as not enough qualification id provided, 

4. Covering Item Address (CO'VER): 

It is the address of the cell corresponding to a major/ 
minor structure which is one level higher and which contains 
this item (parent node). It is needed for detecting ambiguous 
declaration of a structure. Such a structure is shown in the 
next section. 

5, Last in Structure with Same Hame (ISRSM) ; 

It is the address of the cell with same name and declared 
in the same structure. This pointer is logically redundant 
because it can be dispensed with but at the cost of more. com- 
plexity and increased search time. Its effect can be simulated 
v/ith LSTSHM and structure number. It has been added because 
space was available in the symbol table. 

LSP-SITM is used to detect ambiguous declaration of struc- 
ture. In particular, IHTER routine checks that two base- 
elements or minor structures (at same level) with same name 
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do not have same covering item also. In case the covering 
item happens to be the same, error condition is raised. For an 
example consider the case. 

DECIi.JlE 1 A, 2 B, 3 C, 4 D, 3 D, 4 D, 2 B; 

This declarcition of a stmcture is not valid since there 
are two minor structures ('B',at Level 2) having the same covering ■ 
item 'A\ This error would be detected v/hile the second B would be 
getting declared because in that case ISSRM'I would point to first 
B and both of them ?/ould be having the same covering item 
address in COTER. This search is followed till ISSRIM becomee ; 

0, which indicates that there is nothing more in this structure 
with same name as the one getting defined. 

This should not cause a misunderstanding that in a structure 
two (or more) minor structures or base elements at same level can 
not have same name. Only thing that is important is that they 
should not have same covering item. In the example given there ; 
are two items with same name (D) at same level (4) but their cover-| 
ing items are’A.B.C' and'A,B.D' respectively. | 

6. Hext on Structure (KXTSTR): | 

It is the address of the next item (lexicographically) 
in the structure. If there is no next item, it is made zero. 

It is used to traverse the structure in the forward direction. 

It is used by the routine analysing the ^LIKE’ attribute and 
many other routines including the LOOKUP routine. 
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7. Next in Structure at Same level (HXSTIAT) : 

It is the address of the next cell at the same level and 
having same covering item. It is ‘ased hy the ' BYNxilIB ’ routine, 
which analyses the BIKiUCS option. 

The representation of attribute cells for different data 
items is given in Appendix D. 

3* Attribute .unalvais Routines ? 

3 • 1 Introduction : 

An identifier in a PL/l program may refer to one of many 
classes of objects. Those properties that characterise the object 
represented by the name, and the scope of the name itself, 
together make up the set of attributes that are to be asso- 
ciated with the name. There are a number of classes of attri- 
butes. When an identifier is used in a given context in a pro- 
gram, attributes from certain of these attribute classes must be 
known in order to assign a uniaue meaning to the identifier, 
for exciinple if an identifier is used as a data variable, the 
data type must be known; if the data type is arithmetic, the 
mode and scale (fixed point or floating point) must be known. 

Attributes are given to identifiers by explicit, contex- 
tual and implicit declarations. In addition attributes may be 
given to identifiers by the standard default rules (Appendix G). 
Attributes are specified in a DECLAEtE - statement and they 
follovr the identifiers to v*iich they refer (non factored 
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declaration), i-ttributes conauon to several name declarations 
can be factored to eliminate repeated specification of the 
same attribute for many identifiers. 

3*2 Glasses of .ittributes : 

i-ttributes have been classified in four major categories 

a. Storage class and scope attributes, 

b. Data attribtites, 

c. Miscellaneous attributes, and 

d. 'No-action' attributes. 

3*3 Attribute Analysis Routines : 

The ATTRBT deck consists of following eight routines for 
attribute analysis. 

Dor Non-Structure or Ordinary Declarations ; 

1, ATORDN: Dor attribute analysis of non-factored ordinary 

declarations e.g. 

DSCL.JIE A DEAL, B DIXED (5,0) STATIC; 

2, DCORDN; Dor attribute analysis of factored, ordinary 

declarations, after a name e.g,, 

DECLARE (A DIXED, B)(10) STATIC; 

After the names A and B, DCORDN would be called 
to do the attribute analysis. 

3, RDORDN: Dor attribute analysis of factored ordinary 

declarations, after the right parenthesis e.g. 
After ')’ i.e. (10) STATIC would be analysed 
by RPORDN routine* 




For Structure Declarations: 


4. MJSTRC; 


5. MNSTRC: 


6. RCSTRC: 


7. RPSTRC; 


For attribute analysis of major structure name 

8 • g • 

SSCl^iE 1 L 3SLTIC, 2(B FIXED, C FLOAT) DECBiAL, 

2 D, 3 S CRAiu.CTER; 

i'dJSTRC would be called after the major structure 
raise A. 

For attribute analysis of minor structure/base 
elements, (non factored) e.g. 

After E in the above example MRSTRC would be called 
to do the attribute analysis. 

For attribute analysis of factored base elements, 
after the name e.g. 

FCSTRC v/ould be called after the names B and C. 

For attribute analysis of factored base elements 
after the Right Parenthesis (R?) e.g. 

After ’)' a-t DjiOIliAL, EPOEDC v/ould be called. 


For formal parameter common to PROOEDURB and ENTRY statement : 


8, PUTFML; Ylhen a parameter is shared in PROCEDURE and EI®RY 
statement, an entry in the prologue list of proce- 
dure statement v/ould have been generated and storage 
would have been assigned. The prologue list corres- 
ponding to the secondary entry point, should also 
have an entry for this parameter and should refer 
to the same storage, PUTFML is called for this 
purpose. 
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For Default -^Ittrlbute assignment : 

For assigning default attributes to normal variables, 
ordinary/base elements, the calling sequence is as follows - 
MSM vmm 

TSX ill’ 0 luJH/MIISI‘RC ,4 

Same calling sequence is to be followed to generate 
prologue list entry for a parameter v/hich doesn't appear in a 
DECL/iRE statement . 

All the above routines share a main module called ’.AfTRB* 
which would be described now. 

3.4 Ifein Module ; 

The operation of the main module of the Attribute Analysis 
Routines (AAR) can be divided into four phases. 

i) Collection of the attributes, 

ii) liaking the 'complete attribute set', 

iii) Assigning storage and generating output, if any, and 

iv) Filling the S3niibol table entries. 

The main module would be described in terms of these four 

phases. 

3,4.1 Collection of the Attributes : 

lain module has an array of five words called Represen- 
tative Words (RW) for collecting the attributes. -The first RW 
stores the attribute cell address of the symbol for which 
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aij'fcri'bu'te analysis is being done. Resi of the foun words 
correspona to the four ma;jcr classes of the attributes as 
described in earlier section. These words are initialised 
in the beginning and at the end of the collection phase, if 
any of , the word is fotmd to be in the initialised state, it 
implies that no attribute of that class has been specified. 
However, the sign position of the particular RW being nega- 
tive indicates the presence of at least one attribute of that 
class. 

Each of the attribute has been given a unique code number 
which identifies its major class, minor class, first subclass, 
second subclass etc. The attributes of one major class are 
divided into various minor classes, which are further subdivided 
into various subclass and so on. The hierarchical structure of 
some of the major classes is shown in Figure DC-3. 

This classification simplifies the identification of an 
attribute. Consider the code v/ords of some of the attributes. 

II-Sq I-Sq MjjC 

01 2345 (Character pn 


REAL 

o 

o 

o 

CM 



COICPLEX 

■ ' ' f " '™"' ' r T' ' I ■ ' I 

2 53_! 1 1 1 ! 1 ; 1 I 



DECELII 

2 I 0 i 0 ! 2 I 2 i 1 I 



STATIC 

! 1 i 1 1 0 i 0 I 1 i 1 ! 



FXDERHAL | 

1 i 1 I 0 jo I 2 I 2 ! 
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Storage and Scope Attributes 


Storage att. 


Scope att, 


AUTOIviATIC STATIC EXTEPAAL lUTSaiA 


Data Atti'ibutes 


(Major class) 


(Minor class) 


(l-Sub Class) 
I-S^ 


(Major class) 


! 1 
File constant j 
/ I ' . 


/ I \ 

' I 


String 


label i Entry 

1 constant; 

Arithm^c , , (Hij^or class) 


Type length H(5de Base Scale 

AAA h 


CHAEACTSR BI 


" / \ / 
FIXED VARY-/ 

IRQ / 


REAL COM- 


Il-Sr 


FIXED FlC 


i Figure: DC-3. 
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The character position 'C’ represents the major class. 

'The attributes KEll, DECUitL and OOI’.'IPISX have the sarae number 
(2) in MjC since all of them belong to the data attribute 
class. Sinuiarljr STATIC and EKTEitIb'Jj have same major class 
number. 'Character position 5 represents the minor class. The 
minor class number of REi'Ji, DEOKh'Jj and COIifEPIiBX is same since 
all of them belong the arithmetic attributes subclass of the 
major class-data attributes. Minor class number of STiTIC and 
EXTEEiTAL is not same since they belong to the storage class 
and the scope class respectively, both of v/hich are minor classes 
of the major class - storage and scope attributes. Character 
position 3 represents the second sub class. Eor all the four 
major classes the division may not go upto the second sub class. 
The remaining characters are used for other purposes which are 
not logically important. 


The numbers assigned, to various classes and sub classes 
are in powers of 2. In other v/ords each number corresponds to 
one particular bit in the computer word. This sort of assign- 
ment helps in collection and classification of attributes. For 
these purposes the logical operations MW and OR are used, 
each of which takes only 2 machine cycles to get executed. 

The collection routine first determines the major class 
in vrhich the attribute lies. Depending upon the major class, 
further actions are taken. For example, for attributes of 
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data class, it checks that all the attributes declared for a 
symbol belong to the same minor class, lo check this the 
representatiT/e mord for data major class, is logically jLlCD.ed 
?;ith the complement of the attribute code ’.vord. If fifth 
character is not zero , it inuicates error. This vra,y illegal 
declarations like ’lulBEl DECII<ltiL’ are detected and error 
condition is raised. 

How it repeats the same process for the first sub class to 
to see that no conflicting declarations are made. For this 
the RW of data type is logically AlOed with the attribute code 
word and if 4.th character position is not zero, it indicates 
the error of the type ’REAL COICPLEX'. Ihen validity of the 
attribute use is checked, a logical OR operation is performed 
between the corresponding R?/ and the attribute code word. This 
operation enters the information about the present attribute in 
the RW. Consider the case of 'KBidL DSOniAL'. 

After RErxL has been entered in the RW, the '-RW would be 
as follows, 
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The bit pattern v/ould be as follows: 


r I 
\ I 

U 

: 000000 

i i 

■; 000001 1 
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000001 1 
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j 000010 
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j 000010 i 
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i 000011 1 
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DBCIIViAI 


XtHlijii Dji<0 


At the end of colloction phase, ’l'in the 5th character 
position of 'data — RW'will indicate arithmetic minor class, 

'3' ir character position 4, will indicfite that both mode and 
base are specified. However, to know exactly vdiich of the 
four combinations, 

REAL ( I DvlAL/ 

) COBIPISX/ / X? BIl'IARY j I 

is specified, character position 3 would be used. This way the 
the job of the next phase becomes quite straimht forward. 

Luring the collection phase itself, some of the attri- 
butes are analysed also. (Hov/ever sorae cf these attributes 
can not occur with factorisation). Attributes IIEB, INITIAL, 
MAP etc. come in this category. After the analysis of these 
attributes is over control may once again come to the collec- 
tion phase (for liAP) or it may go to the next phase (in 
IHITIAI, for example). 
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There are a numher of attributes, like dimension 
attribute, string length attribute etc., ■ivhich occur inside 
a pair of parentheses. These attributes need not always be 
specified. The exact meaning of an attribute in parentheses 
depends upon the preceding attribute or lexunit in general. 

Dor example if '(10)’ comes after a symbol, it represents 
dimension attribute, whereas if it comes after the attribute 
CHARACTER, it represents string length. Each .of these attri- 
butes is analysed by a different routine. If the 30b of 
determining whether a left parenthesis occurs after an 
attribute is left to the individual routine, then for each 
attribute this check would have to be carried out which would 
make the collection phase considerably slov/er. The effect of 
increase in time may not be that pronounced in non factored 
case , but definitely the increase will be quite marked in 
factored case v/here the list of declared attributes is 
scanned twice. 

The scheme adopted for this purpose avoids the individual 
checking and centralises the job of finding out the context 
of the IP use. For this purpose each of the attributes is 
given a IP-type nimber wiiich is zero if IP can not occur 
after that attribute. When an attribute is obtained, the 
corresponding type number is placed in a word called IPCOI®. 

Nov; if a IP occurs and IPGODE is zero, it indicates illegal 
use of IP and error is given. On the other hand, if IPGODE 
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is non zero, appropriate routine is callod, depending upon 
the numlDer stored in IDCODS. The list of DPCODE number and 
the attribute represented by it is given in the adjoining 
flow chart. 

These IP-attribute analysis routines distinguish the 
calls between non-factored and factored (post ilP processing) cases- 
In the first case the information extracted from the attribute 
is filled directly in the representative v/ords whereas for the 
second type of call it is temporarily kept ?;ith the routines. 

When the 'stacked attributes’ are analysed, this information 
is copied from the temporary storage into the representative 
words. (For 'stacked attributes' refer to the following sections). 

Factorisation of Attributes : 

For taking care of factorisation in a DECLARE statement, 
maintains a stack viz 'factor-stack'. It consists of a 
chained list of cells taken from the free list. Factor stack 
has three types of cells; 

1. Active IF Cells; 

They correspond to those left parentheses for which 
matching right parentheses are yet to be found. Sieyare needed* 
for matching the right parentheses fo-und with the corresponding 
left parentheses (to decide the range of factorisation). 
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2. Inactive IP Cells: 

They correspond to those left parentheses for which 
matching right parentheses have already been found. In fact 
these cells could have "been removed from the factor stack, 
hut it requires breaking a chain from in between and then 
making it again. This process is quite time consuming as well 
as requires extra code hence it is not followed. Instead the 
type of the cell is changed so that same branching mechanism, 
as for active IP cells and s 5 rmbol or identifier cells, is made 
use of for skipping the inactive cells. 

3. Identifier Cells: 

These cells correspond to the identifiers declared inside 
the factorisation. 

The first word of a cell (for each of the three tsrpes) 
is used for establishing the backv/ord link. The remaining five 
words correspond to the five representative words. This way 
information about the attributes declared is carried along with 
the s 3 mibol. 

Ihen a call is made to PCSTRO/FCORDN, a fresh cell is 
taken from the free list and is added on top of the factor 
stack. In this mode at the end of the collection phase, the 
representative words are copied into the added cell. The execu- 
tion of the remaining phases is skipped and control rettims to 
the calling routine. 
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In post RP attribute analysis node (RPSI'RC/RPORDN) , 
the attributes declared apply to all the nanes that fall in the 
range of this right parenthesis (i.e. upto the first active IP 
in the factor stack). To nake these attribute available at 
the time of the collection phase for each of these name-cells, 
another stack is needed. It is for this reason that AMR 
maintains another stack, called 'attribute stack*. 

In this mode the collection phase itself works in two 
distinct phases. In the first phase, all the attributes 
declared are stacked on the attribute stack, IP -attributes 
are analysed and IP is stacked on the attribute stack. After 
this phase is over, this attribute stack is used in the second 
phase. 

In the second phase, next cell in the 'factor-stack' 
is taken, its contents are copied into the representative words 
and the attribute stack pointer is initialised to the bottom 
most attribute. Now stacked attributes arc taken one by one 
and given to the non factored collection nodule, v/hich analyses 
them as usual. Bringing the contents of the factor stack 
identifier cell into the representative v/ords takes care of 
the attributes declared previously. This vay factored decla- 
ration environment is transformed to non factored declaration 


enviro3aiaent 
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At the end of the collection phase for this identifier, 
if PRiTCNi is not zero i.e. factorisation is still inconplete, 
the representative words are copied back into the old cell of 
the factor-stack. Hov/ever, if factorisation is complete i.e. 
PMCNT is zero, this cell is given to the reiiiaining phases. 
Siesephaoes ofter coropleting their joh send the control back to 
the collection phase. This process is repeated for all the 
identifier cells of the factor stack till an active IP cell is 
obtained, showing the end of the range of the present factori- 
sation. If PMOITI happens to be zero all the cells of the 
factor stack are returned to the free list. However, if 
PMCI'Tl is not zero, the active IP cell is converted into an .in- 
active IP cell. Pinally control is returned to the declare 
statement routine. 

3.4.2 Making th e Complete At tr ibute Set : 

Attributes collected during the collection phase are to 
be analysed to see Vvhother the attributes defined foi-n a 
complete set or some cttributes arc to be supplied to complete 
the set. Consider an example in which case only REAL BXTERIAl 
are defined as attributes. Since no storage class attribute 
is specified, it v/ould have to bo supplied to complete the 
storage, and scope attributes. In this case STATIC attribute 
would be supplied by the compiler. Similarly the only data 


« 
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class attribute specified is KEiil which represents the arith- 
metic minor class, ihe sub class is 'ricde ’ . The two remaining 
sub class attributes ’base’ and ’scale’ would have to be 
supplied. Completed set would be EXIERIuJj STiJI'IC HEoL 
EECItaij-L (Ihe completed data class corresponds to the 

'Standard default actions of PL/l’. However PL- 7044 would 
complete it as RELL-floating point or REall-integer depending 
upon the first character of the nama) . In case no data class 
attributes are specified, default attributes are assigned 
depending upon the first character of the symbol. Similarly 
if no storage and scope attributes are defined, default storage 
and scope attributes are assigned. Details of default actions 
are given in Append ix-G. 

Eor a minor structure, if no attributes are specified, 
the control is returned to the DECIuiRE-routine. In case the 
DECLiiRE statement realises that the symbol should have been 
assigned attributes (after seeing the level number of next 
element), it calls the default attribute assignment routine. 

5 . 4.3 Storage Assignment and Output G-eneration ; 

Every declared variable is to be assigned storage area. 
Exact amount of storage area depends upon the attributes of the 
variable. Storage area assigned depends upon the storage class 
attribute also. For arrays cy: character scalars, storage is 
assigned from the run time stack. For doing this, at run time, 
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output code is to "be generated. Dor this purpose the variables 
are classified luicler six categories. 

Static : Scalar and Array 

Forual : Scalar and Array 

Domval : Scalar and Array 

Dor the pur-pose of storage assignment the static variables 
are treated as being declared in the block '0*. This assumption, 
iioivsverj does not change the declared scope of that variable. 
This ensures that storage space assigned to these variables 
would not be released throughout the execution of the program, 
since block ’0' v/ould never be closed. The salient advantage 
of this scheme is that all the routines doing array allocation 
and initialisation, scalar allocation and initialisation etc. 
for A.’OTOMATIC variables can also be used by the STATIC 
variables. 

As specified in the PL/l specifications, all the storage 
assignment and initialisation for STATIC voriables should be 
done only once in the beginning, irrespective of the number 
of times the block in which the declaration has been made is 
invoked. To conform to this specification all the output 
generated for STATIC variables is assembled under a different 

location counter called ’STATIC*. This counter gets priority 
over the normal counter viz. ’CODE’. The control is transferred 
to start with STATIC variablgs storage assignment and initiali- 
sations. It Is because of this reason no expression is allowed 
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in array sizes, array bounds, string lengths, iteration 
factor etc. for a STATIC variable. 

Dor normal variables output generated, if any, goes 
under the location counter 'CODS'. 

Dor formal parameters, prologue list word(s) is(are) 
to be generated. The prologue list word carries the 
information about minor type of the variable, and address 
of the storage assigned to this formal parameter. These words 
are assembled under a location counter called 'PROLOG', which 
arranges all the prologue list words in a sequence. The PROLOG 
counter becomes necessary because of two reasons, Dirstly the 
normal declarations and formal declarations can be inter-mixed 
and secondly, explicit declaration of a formal parameter need 
not be given by a DECLARE statement. Since it can only be 
recognised when all the DECLARE statements corresponding to that 
block are processed, PROLOG counter becomes a necessity. Prologue 
list interpretation routine written , expects the prologue list 
in consecutive words. Eor details about prologue list, reference 
should be made to Chapter PC^ 

Eor all the variables, storage address is assigned 
in terms of the offset from the start of the storage area for 
that particular block. The offset count is updated by the 
attribute routine if any storage assigiment is done. 
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5he storage assignment module maintains a table , called 
EXTERHAi- table , of all the definitions of variables having 
EXTERNAL scope. Ihen a symbol gets declared with EXTERNAL 
attribute, the module first checks v/hether that variable exists 
in the EXTERNAL-table or not. If an entry with same name 
already exists in the EXTERlw table , its ma^or type and minor 
type are compared with the major type and minor type of the 
present definition to see whether they are consistent or not. 

If these do not match, error condition is raised, since both 
the definitions represent the same variable. If types are 
found to be consistent, reference to this definition is directed 
to the old definition. However, if a definition doesn't exist 
in the EXTERN-table , storage is assigned as usual and an entry 
is made in the EXTERNAL table. 

3.4.4 I'i lling the Symbol Tabl e Entries : 

Entries like major type, minor type, precision etc. are 
stored in the symbol table. Control then returns to the calling 
routine. 

If a call comes for default attribute assignment, the 
first phase is skipped and control directly goes to the second 
phase . 

3.5 Analysis of Initial Attribute : 

Initial attribute requires maximum amount of code genera- 
tion and is quite interesting also. Its implementation details 
would be described here. 
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Tbe initial attribute specifies an initial constant 
value to be assigned to a data item when storage is allocated 
to it. 

3*5.1 general Dorraat : 

IIIITIAL (initial item [ , initial item'J...) 

where " initial item” is 

[(i-f)] extended string constant 
or 

pi-f )] f+l -] arithmetic constant 
or 

[(i-f)] » 
or 

(i-f) (initial item [" , initial itern^ . . . ) 

where , 

" i-f” is an ” iteration factor” which can be a scalar 
expression. The scalar expression is 
evaluated at the time of initialisation and 
is converted to integer value. 

" extended string constant ” is 

[(r-f)j string constant 

where ” r-f ” is repetition factor. 

” arithmetic constant ” is 

Complex constant or 
Real constant 

where ” complex constant ” is 

[[+j-] real-constant^ | j imaginary-constant 

where .‘'real, constant” is 

integer constant or 

floating point constant , and 

” imaginary-constant” is 
real- constant I 
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3 . 5.2 G-eaeral Rules; 

1. The INITIAL attrioute can not ho given to rna jor 
striicture names, minor structure names, and parameters. 

2. For " Static Yariables” iteration factor should he 
optionally signed constant only. 

3. Only one scalar va.lue can he specified for an element 
variable; more than one may be specified for an array 
variable. A structure can be initialised only by 
separate initialisations of its elementary names. 

4. Scalar values specified for an array are assigned to 
sucoassive elements of the array in row-major order, 

5. If the number of values specified for an array exeeeids 
the number of elements of the array, excess values are 
ignored. 

6. If the number of values assigned is less than the number 
of elements in the arraj", the remainder of the array 

is not initialised. 

7. 'Asterisk' specifies that corresponding position is to 
be left un-initialised. 

8. If the iteration factor is followed by a constant, it 
specifies the number of consecutive array elementsthat 
are to be initialised v;ith the given value. If the 
iteration factor is followed by an asterisk, it 
specifies the number of consecutive array elements that 
are to be skipped in the initialising operation. If the 
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iteration-factor is followed ly a list of initial items, 
then the list is to be repeated the specified number of 
tijnes with each ixem initialising the specified number 
of array elements. 

9. Only 10 levels of iteration factor nesting is allowed 
in initial item by 11-7044 Caupiler, 

10. A negative or zero value for the iteration factor causes 
no initialisation. 

11. Only label constants can be given as initial values for 
label variables, the name of such label constant must be 
loaovra within the block in which the label variable 
declaration occurs. 

12. An alternative method of initialisation is available for 
elements of array of non-SlATIC statement label-variables. 
An element of a label array can appear as a statement 
prefix, provided that all subscripts are (optionally 
signed) integer constants- Ihe effect of this appea- 
rance is the initialisation of that array element to a 
value that is a constructed label constant for the 
statement prefixed with the subscript reference. This 
statement must be internal to the block containing the 
declaration of the array. Only one form of initialisation 
can be used for a given label array. 
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13. INIl'LaL attribute should be the last attribute iu the 
list of attributes, e.g. RDAl INIIIAL(O) is all right 
but not lEITIAl (o) REAL. 

INITIAL attr?Lbute can be factored, but it should be 
at tne factoring level of aero i.e. when " PRNCIIT ” is 
zero. These restrictions are not part of PL/l and they 
belong to PL-7044 only. 

3*5.3 Implementation : 

(i) Examples: 

Implementation of INITIAL attribute would be explained 
’with the help of the following examples: 

E-1. EECIiillE (A PIXEE, E STATIC, (G,D) COMPLEX) INITL1L(-1 ) ; 

E-2. DECIARE (CH CHiAblCTER , ET BIT) INITIALC ' 101 ' ) J 
E-3. DEOLaEE (INT, JINT, REL, Ci\IP COMPLEX, BIT BIT) ( 10,5) 

INITIAL (1,(5)*,(K*J/L)((3)2.0,3+1.I) M01 'B) ; 

E-4. LECLxAIS liiB(lO) LABEL (L1 , L2, 3(L3 ,L4) , *,L5) ; 

As can be seen from here, the same INITIAL-list is 
being used for initialising variables of different types viz. 
in E-1, integer, floating point ana complex scalars are 
sharing the sarae initial list. To do the right assignment, 
conversions are required. Conversions can either be done at 
compile time or at run time. If conversions are postponed 
for run time, lot of time would be wasted since every time 
a block is invoked, initialisation would have to be done 
afresh... In case of factored declaration use of INITIilL 
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attribute would be still more inefficient because if two 
variables of same type share a list v/hich requires conversion, 
it would have to be dono for both of the variables. Then 
situation becomes still worse if a conversion is involved 
with iteration factor since then it v;o’ald have to be repeated 
that many times even in one initialisation. Thus there is 
overwhelming incentive in doing conversionsat compile-time 
itself. It is for this reason that Pl-7044 forces that 
IKITIii be the last attribute so that by the time INITIAL 
attribute is obtained all information is available about the 
type of the variable. This makes possible for two or more 
variables to share the same initial-list v;ith no loss in 
execution time. 

Treatment given to the scalar initialisation and array 
initialisation is different and hence they would be described 
separately. 

(ii) Scalar Initialisation : 

Tor scalar initialisation the code to do the initiali- 
sation is generated in open ended manner and no special routine 
is called for doing initialisation. Hov/ever, in case of string var- 
iables and label variables ilth list^ assignment routines are 
called to do the initialisation since they require more v;ork 
than just assignment. The constants are converted to inatch 
the type of the variable, if possible, and they are outputted in 
second pass itself. The code for doing the initialisation is 
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generated in third pass. Constants, therefore, appear out of 
the sequence of the normal code. 

Dor 1-1 , the constant area and the code area would he 
as follows: 


Constant Area (Outputted . in Second Pass) : 


USE JUMIt 


100001 EQU =0-1 

100002 EQU =0601400000000 

100003 EQTJ * 


integer ’-1’ 
f.p. '-1. ' 

Complex '-(1.+OI)' 


OCT 601400000000 real part »-1.‘ 

OCT 400000000000 imaginary part '-O’ 


Code jirea (Outputted in Third Pass) : 


USE 

CODE 

CIA 

100003 

STO 

add D 

Clii 

10)0003+1 

STO 

add D+1 

G J-uj. 

100003 

STO 

add 0 

CL;1 

100003+1 

STO 

add C+1 

USE 

STATIC 

CL/i 

100002 

STO 

add B 

USE 

CODE 

CLA 

100001 

STO 

add A 
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It should he noted that: 

i) Constants are outputted under a location coijnter called 
JUl'iK and the initialisation code for ATOOMilTIC variables, 
e.g. A,C and D, is outputted under the location counter 
’CODE’ v.'hereas the code for initialising a STATIC variable 
is oiitputted under ‘STATIC’ location counter. 

ii) ” add X*’ represents the address of the variable X, if it 
is of one word type (integer or floating point), otherwise 
it represents the address of the first of the series of 
consecutive vrords assigned to that variable. It is of 
the type ’BS.bn+offset ' where ” bn" is the block no. and 

" offset" is the offset of this variable from the starting 
of the storage assigned to this block i.e. ‘BS.bn*. 

iii) For one word constants, literal management is left to the 
IvAlP assembler (by generating *EQU' code) whereas for 
multiword assignment^ literal management becomes the 
responsibility of the compiler itself. It v/ould be proper, 
if only one copy of the multiwrorl literal exists in the 
code. However, this sort of optimisation has not been 
tried in this compiler. 

iv) Variables of same 'ninor-type ' , (sharing the same 
initial list) share the same constant at run time also. 

This is evident in case of complex variables C and D. 

v) There is scope for f\n:ther optimisation. It can be 
seen from the example given, that the complex constant 
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, is brought into the accumulator tv/ice , once for 
initialising C and second time for initialising D. 

It could have been so organised that in case of 
factored initialisation a constant is brought into 
the accvniulator only once. Ihis v/as, however, not 
tried. 

As already mentioned, for string variables run time 
assignment routines are to be called. The code generated for 


E-2 would be 

as follows: 


Constant area: 




USE 

JUIIK 


100001 

EQU 

* 



OCT 

500000000000 

bit string '101' left justifit 


OCT 

3 

length of bit string 

100002 

EQTJ 

* 



OOT 

3 

length of character string 


BCI 

1,101 

Actual character string 

Code Area: 

!JSE 

CODE 



T3X 

EIT.^3S,4 

BIT Assignment routine 


2ZE 

add BT 

address of variable HI 


P2E 

100001 

Bit string constant address 


TSX 

GHIIASE,4 

Character assignment routine 


PEE 

add CH 

Address of variable GH 


PEE 

100002 

Character string constant 
address- 



*• I T. KANPltf? 

CENTRAL U8RAR Y 

^ 0 ^.^ 0 ^ 2115.1 
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would have been noted in both the examples that the 
sequence of code generated is exactly the reverse of the physi- 
cal appearance of the v ri bles in the DECLiSE statement. 'This 


is because of the mechanism employed to analyse the factored 
declaration, described previously. 

c) Array Initialisation: 


Unlike scalar initialisation, array initialisation is 
done by calling a routine, specially coded for this purpose ^ 
since array initialisation is more involved because of itera- 
tion factors, use of asterisks etc. The calling sequence of 
the array initialisation routine is as follows: 


TSX ARm’L,4 

EDE header,, mnrtyp 

PZE intlst 

where , 

” header” is the first order storage address of the array 
header, "mnrtyp” is one of the 12 minor types (Appendix-D) and 
” intlst” is the address of the run-time list generated for the 
list specified in the DECLAEE statement. As in scalar' 
initialisatioiij repetition of a constant is avoided j here also 
repetition of initial list is avoided. Two or more variables 
having same type share the same initial list. 

Eormat of Initial list : . 

Initial list is an ordered collection of eleven different 
types of elements. Each element consists of one or more words. 
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^irst v;ord identifies the type of the element and the 


remaining 


words 3 if any, store the constants etc. The routine aRIITTL 
interprets this list and recognises the type of the element 
w'ith the help of the identifying word. The types of the elements 
and their word requirements are as follows: 


Type dumber 


Ho. of wordi 
required 


Remarks 

End of Initial List 

Value of constant iteration 
factor in the second word 

Value of the expression in 
iteration factor in the second 
word 

Integer constant in the second 
word. 

floating Point constant in the 
second word 

Bit string in the 2nd word and 
its length in the third word 

Character string length in 2nd 
word and actual character string 
in next n consccutiye words 
(n depends upon the numher of 
characters) - 

Complex constant. Real part in tiie 
2nd word and imaginary part in 
the 'Srd word. 

Label scalar constant in the 
second word 

Asterisk 

End of iteration factor range 


ARIilTL routine calls another run time routine P.Rii'G-E 
Vv’-hicn supplies the first element address, last element address 
and no. of words per element of array, These three quantities 
are used to get the next element address of the array and to 
decide v/hen the arre>y is over. This routine maintains a ten 
■; rd stack where it pushes the address of the iteration factor 
in initial list, and also the iteration count. The iteration 
count is decreased hy one when it meets the end of iteration 
factor range. Eovv it again starts initialising further elements 
from the same initial list portion, address of v/hich is avail- 
able on top of the stack. This process is repeated till itera- 
tion count is reduced to zero, then the top most cell is popped 
off from the stack and next element is taken from the initial 
list. 

The routine ARIilTL returns control when either the end 
of initial list code is met in the initial list or all the 
elements of the array get exhausted. 

Corresponding to the example S-3, four initial lists 
vrould he generated. Variables INT and JDTT, both being 
integer, would be sharing the same initial list, generated with 
all constants converted to integer type. Pleating point vari- 
able RSI, complex variable Ci',iP and bit string variable BIT would 
be having three different initial lists of types floating point, 
complex and bit string respectively. 
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The initial list generated .for integer variables I15T and 


liH would be 

as follov/s: 


100001 

USD 

JUFK 



PIF 

3 

Integer constant - 


OCT 

1 

1 


PSE 

1 

Iteration factor ( constant) - 


OCT 

5 

5 


PZE 

9 

» * » 


PZE 

10 

End of iteration factor range 

100002 

PZE 

2 

Expression in iteration factor- 

PZE 


Value of K*J/1 would be filled 

* 

PZE 

1 

here 

Constant iteration factor- 


OCT 

3 

3 


PZE 

3 

Integer constant - 


OCT 

2 

2.0 Converted to 2 


PZE 

10 

End of Iteration factor range 


PZE 

3 

Integer constant - 


OCT 

3 

3+1 . I converted to 3 


PZE 

10 

End of Iteration factor range 


PzE 

9 

«** 


PZE 

3 

Integer constant- 
'101’ B converted to 5 


OCT 

5 


PZE 

0 

End of initial list 


It is to be noted that: 

(i) Initial list address is 100001, 

(ii) Code for evaluating the expression I*J/1 would be outputted 
by the expression processor. The value, converted to integer if 
necessary, v/ould be filled by the same routine in the address 
portion of 100005 . The v;ord 100003 is given from the code under 

a different location counter, called 'BSS'. It becomes necessary 
to do so because the value is needed by more than one list, in 
general. Before generating the code for calling ABINTl, code for 
copying the value from 100003 into 100002 would have to be gene- 
rated. For non-fa ct ore d case this extra word is not necessary 
and value is directly filled in the initial list. 
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Use of a fijinction inside iteration factor is not proh-i- 
bitedi Ho?;everj a recursive call can not be given to the same 
procedure because are storing the value of the expression 
in code itself, old value would be lost if a second call is made 
to the same procedure. It could have been taken care of by 
providing a temporary location from the temporary area (which is 
saved when a recursive call is made to the same procedure) and 
then taking the value from this temporary every time it is needed. 
However, it v/as not tried because it would Slow down the execution 
for the non-recursive case also, 

(d) label Variable Initialisation: 

label variable initialisation as given in example E-4 is 
similar to that of any other initialisation. The only difference 
being that in place of ordinary constants, label constants take 
part in it. 

There is another way of initialising the elements of arrays 
of label variable by prefixing it to any statement except 
PROCEDUHB, EFI'RY, Dn'CMRE, EOEliiT, ELSE statements. 

Consider the trivial program: 

iVlAlS: PROCEDURE OPTIONS (laAIlT) ; 

DECIulRE 1(10) liBEl; 

GOTO 1 dh 

1(1); PUT LIST ( 'LABEL INITIALlSATIOiJ DOHE'); 

STOP; 

EffiJ liAII; 

Execution of this program should print the following text: 

LABEL INITIALISATIOl DOES. 
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To take care of this type of label initialisation, follow- 
ing scheme is proposed. 

A label Initialisation Table (LIT) is maintained in second 
pass. LIT has one word for each of the blocks defined in the 
program. These v/ords are initialised to zero to start with. 

A chained list of all label initialisations of label prefix type 
for one block is outputted in second pass under the location 
counter B3S. The starting address of the chain for a block is 
stored in the label initialisation table. This chained list is ■ 
interpreted at run time by label initialisation routine, immedia- 
tely after all the declarations are over for the block being 
invoked. Label initialisation routine is supplied with the 
starting address of the chain in a word. If the contents of this 
word happen to be zero, it indicates that there is no label 
initialisation, of prefix type, for that particular block. 

The list consists of chained cells, each of two words. One 
cell is outputted for one label initialisation of this type. The 
format of the tvvo word cell is as follows: 


1 

LSTCELL 

1 

HEADER 

i 

LBLCNS 

i 

1 

ARGLST 


where , 

LSTCEL: Last cell address, used for linking the chain. 
HEAiiSR: Label array header address. 
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LBLCl'JS: Constructed label constant containing word 
address 

ARGISI’: Address of the list of subscripts used in the 
label initialisation. 

The calling sequence for the label initialisation routine 
is as follov/s: 

TS LBIINT,4 
BZE vnrdadr 

where 

" wrdadr" is the address of the word containing the 
starting address of the chain. 
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DECLARE STATELflEHT Ploy/ Chart 


NOaiEECLA.DURE: 

1. Lexical Units: 

IDEKT : 
IDT: 

2. Routines: 

AEAMT: 

AT'ORDR: 

CHKDEL: 

COVER: 

ENTER: 

ECORDN: 

ECSTRC: 

LEENT : 
miSTRC: 

liUSTRC: 
EPORDIT : 


Identifiers (non key words) or key v/ords 


Integer 


Attribute analysis routines 

ATAHRT for ordinary scalars 

Check whether last minor structure has 
been given explicit attributes, if not 
assign them. 

Find out the covering item. 

Symbol table ’ENTER' routine. 

ATANRT for ordinary scalars (inside 
factorisation) 

ATANRT for minor structures/base elements 
(inside factorisation) 

Enter '(' on top of the 'factor-stack' 

ATANRT for minor structures/base 
elements 

ATANRT for major structure 

ATANRT for post ')' attributes (for 
ordinary declaration). 

ATANRT for post ')* attributes (for 
factored structure declaration). 


RRSTRC: 
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3. Symbols and flags: 

FGDCST: Factor declaration stack 

IPFL/iG-: Flag used for factored structure 
declaration 

ISlVliO: level nxmber of the last element 

inside factored structure declaration 

LVIPRl: level number of the last item 

PjID; Previous declaration 

PRKCITI : Differential count of parentheses 

SPRIJCF: Differential coimt of parentheses for 

level-factored declaration of structure 

4 . Error Exits: 

ER-1: Mismatch of left and right parentheses 

ER-2 : Illegal use of identifier 

ER-j: Illegal level number used inside 

factored structirre declaration 

NODE: lexunits, for which there are no corresponding 
branches coming out of the decision boxes, 
constitute error. 




(I)SC-1 ) 
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f . I 



(UEC-2) 












SYMBOL TABLE Flow Ghart s 
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(EITIR and LOOKUP) 


KOMEKCLATURE; 

1. Symbols and 

BIKCHR; 

COVER: 

CVRWI): 
LATEST :• 
LEVEL: 

LSSI«: 

LSSRNM: 

PSRITO: 

SRLVCH: 

SRiroCH: 

STREO.: 

2. Error Exits: 

ER-1 : 
ER-2: 
ER~3: 
ER-4 : 


flags: 

Character storing the serial nimiber of the 
block in which the declaration has been 
made. 

Covering element address of the item 
presently getting defined. . 

Word storing the covering element address 

Contains the address of the added/found cell 

Level number of the' item presently getting 
defined. 

last in stack with same name 

Last in structure with same name 

Serial number of the block open 

Character storing the level number 

Character storing the structure number 

Serial number of the structure getting 
defined presently. 

/ 

Illegal qualification 
Ambiguous reference 
Illegal lexun it 
Ambiguous qualification 



STARS 

in 
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ykaj 

;,witl3 tbis name 
exists? 


m 




YES 




m 

|^,KLKGM=PSRRO.J;^^ 
^^YES 

1^— <^YGH > l"?> 
NO “■ 


| ^SRIOOH=:S TRio?> 
iro k-— e 

J^s 

<Sh.DVCH=STRLY1 

X 

j^ES 

<rCYRTO ,=COVER?> 




YES J, 

Str^lcture 

■ "• be ing pro ce s ae s^' 


m 




iYES 

\j/ 




ITO 


YES 

SR-t 


HO 

't ^ 

i - V - ■■ ■ 

f^LSSRMI E'xists?y^ 
i HO ” - 


V y\ 


V 



— — ::5 

<. ble;chr=psrno_. j>- 


HO 


10 


riiiC-z 




X' 


SRLVCH>1 ? 




YES 


Put on multiple! 
■definition fla^ 
LATEST-.?-- found 
cell address 


r 


RETDRI 


J 


id 


Z' \ Xexists^ 




■M 


10 >e 


add a 6 word 
make pointer 
LATEST^- add 
cell addre 
BMCHR«r-PSRH| 

ZSEL.. 




v_ 


RETIIRH 


1 


SYliBOl TABIE Ei-WER 
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SYIffiOL TABLE LOOEUP 


(STL-1) 


























DC-67 





(sa]L-2) 





Whm 

AglRIBUTB ANALYSIS ROUTIEBS II.0W Omg 


lomenolature t 

1. Routines: 

APDCEL: 


i^SRSTG: 

ASSI&N: 

ATBAKX: 

CHKEML; 


OESim: 


COIECT : 
ERTiilB; 

EAGIIPD: 
GEM.0.; 
GET CEL ; 


Add a six word cell on tlae' top of the 'factor- 
stack^ i , , . , : . 

Copy the five - representative words in the 
added cell. 

Assign storage 

Complete the attribute set, assign storage and 
fill the entries in the symbol table. 

Main attribute analysis routine 

Check whether the symbol is a parameter. 

If so do the initialisations for outputting 
the prologue list word. 

Check whether any of the symbols in the factors 
declaration is a parameter. 

Complete the attribute set. 

Enter the attribute on the top of the attribute 
stack. 

Analyse tl:^ collected' attributes* 

Analyse the 'GEIIERIC* attribute* 

Copy the contents of the top most cell of the 
'factor-stack' into the five 'representative 
words 
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IHITAL : 
LIKE: 
¥JiB: 
RESCEL: 


SY&ffi’IL: 

UPDAIB: 


WimmG: 


Analyse the 'IRIIIAL' attribute 
Analyse the ’LIKE' attribute 
Generate the ’EXTERH name ’ card. 

Copy back the contents of ’representati've 
words' into the top most cell of factor stack. 
Eill the entries in the symbol table. 

Update the information about the attributes 
of a sub class obtained till now. 

Give warning. 


2< Symbols and flags : 


PRIORI : 


STATUS : 


stgbar': 

STRUCT ; 


Lifferential count of parentheses used in a 
factored declaration. 

A multivalued switch to determine' the type of 
attribute analysis routine to be called. 
'Storage and scope attributes prohibited' flag 
'Structure declaration' flag. 




ATTRIBUTE MALYSIS ROUTINE 
, (ATT-1) ' 
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AfMI 



, (ATT-3) 
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lAOUPD 









CGLECT 
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(ATT- 5) 








EXTEffilll? 


ASNSTG 


norTnal 


Add entry 
to the 
’External' 
table. 


major 

class? 


Attributes 


EEIURN 


formal 


Generate 
2- word 
prologue 
list 
entry 


Generate 

1-word 

prologue 

list 

entry 


Assign the Dope Vector 
and Header area. 

Output code for array 
storage allocation 
and initialisation 


RBTURl^ 


Assign first 
order storage 


jAssign first | 
i order storage^ 
Output code, 
if necessary, 

for storage 
allocation & 
initialisation. 


REfURN 


RETURN 
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» BYNAME* 
NOMENCLATDKB; 

1. Symbols: 
AKRAYI : 
AEEAY2: 
AimAI3: 

AT CLAD: 

LSCLAD: 

NEWCEL: 

IWCLAD; 

OISTR: 

RTNSTK: 

SUCSTK: 

TPRTST: 

TPSUST: 

2. Let word 
A(word) : 
D(word) : 
word*: 


Attribute Analysis Routine Plow Cbart 


Stores the ‘match’ count 

Stores the added cells address 

Stores the names of the minor structures 
at same level imder one minor/major structure 

Attribute cell address 

Address of six-word cell added last time* 

New six word cell taken from the free-list 

Address of NEWCEL 

Other minor/mag or structures 

Return address stack 

Success stack 

Top of the return stack 

Top of the success stak 

represent name of a computer word then 

Address portion of ’word’ 

Decrement portion of ’word’ 

Represents one level of indirection in 
’word’ 
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START 


i 

's!/ 


Save ATGLAi 
participating 
in Hi 
TOPI vt- 
1 Initials 

of each 
ctruct'ore 
3W0E1 

HWGLAD 
.sat ions 




JifeL 


AERAY5(N2)^ name 
ARRAU (R2)«- 1 . 
ARRAY2(R2)^ NWCLAD 
LSGIAD <ir NWGLAD 
Save ATCIAD of IJXSTR 
in ITEWGEL 


i T0P2^ T0P1 

! Y2^ 0 

I STR-^ 1 

! Start with first minor/major] 
j Srr.(MSTR)(Sa.v at Level 1) 



JiL. 


Yes 




GALL GET GEL I 
N2^ R2+1 i" 


Any cell at level L+1 
PH ^STR) Under MSTR exist s t 

i 

0 .>j^ RO 


T0P1^ RWGLAD > ' 

/N I 

Y!Br*-<i2^1 ?><-i 
} 

Jh . 


/ STR«- STR+1 WHILE STR<H1 
X^or OHSTR (Say at Level L) Y 


false. 


© 




[Drue 


A 


ni OMSTR an eleme nt?^ 
HO 


Yes 


Ja 




i D(LSGLAI )) HWGLAD | 

____ J , <H2=0?)> 

llO. 




<' §2=0 



HO 


vJnC -< 

HO ■' 


Xlext at level l’+1 (HXSTR' )' 
\ • Under OMSTR exists? 


A 




Yes 


Xn^e =ARRAYg ( i ) , 


HO 


[Yes 


ARPuAY t ( i ) ARRAY1 ( 1 ) +1 
!Save ATCLAD of HXSTR’ in 
i Gall ’ARRAY2(i)*’ 


(sm-i) 







iRettirn all the 
1 cellp add ed 


'iRettirM the^ cell lOP1*i 


YES 




no 


r- <SUOSTK empty ?> 


< ^irSTK empty ?> 


YES 




•HO 


POP RTl'ISTK 


— JslUone matches I ; lOPtt— TPRlST 



CRElUim l 


I 


£ 


Q V— laa <^D(T0P1 ) *=0^ 




Itp rtst^- D(T0P1)* 


Gh 


TPSUST-e^ T0P1K- 


Yes 


0 

<i?5o'f> 
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1=0; DO i=1+i WHILE i<12; 

IE ARRAY 1(C) /- 12' IliEl ] 

delete ARRAYS (i)*j EID,. j 

1 
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CHAPTER V 


PROGRAM COM’ROL STATEMENTS 

This chapter describes the syntax, semantics and imple- 
mentation of the following statements:- lE-statement , GOTO- 
statement, Ennction reference and CAll - statement, RETURN- 
statement, BEGIN - statement, EKD - statement, PROCEDURE - 
statement, and ENTRY - statement. 

1 . IE Statement : 

1 . 1 Syntax : 

Though the general format and syntax rules have already 
been discussed in the Chapter on Eirst Pass Processor (EPP) , 
for the sake of continuity these are being enumerated here in 
brief. 

General Eormat ; 

IE scalar-expression THEN Unit-1 [EISE Unit-P^ 

Syntax Rules : 

1. Each ” Unit" is a DO-group, a 'begin’ block or any state- 
ment, other than declare, END, ENTRY, EORMAT, PROCEDURE. The 
units may have their own labels. 

General Rules : 

1. When the ELSE clause (ELSE, and its following unit) is not 
specified, the scalar expression is eyaluated and, if necessary, 
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converted to a bit string. If any bit in tbe resulting string 
has the value 1, Unit-1 is executed, and control passes to the 
statement following the IP statement. If all the bits have the 
value 0, Unit-1 is not executed, and control passes to the 
next statement, When the ELSE clause is specified the expression 
is similarly evaluated. If any bit is 1, Unit-1 is executed, and 
control passes to the statement follov/ing the IP-statement . If 
all bits have the value 0, Unit-2 is executed, and control passes 
to the next statement . 

The units may contain statements that specify transfer of 
control and so override these normal sequencing rules. 

2. IP statements may be nested that is, either Unit-1 or 

Unit -25 or both, may themselves be IP statements. Each ELSE 
clause is always associated with the inner most unmatched IP in 
the same block or DO group, consequently, an ELSE or a THMT with 
a null statement may be required to specify a desired sequence of 
of control. 

1*2 Coding of IP-Statement : 

The coding of an IP-statement becomes an easy job because 
of the vrark done by the PPP. The PPP supplies the following 
information to the second pass- 

(i) The scalar expression which is to be evaluated. 

(ii) Success-label: Address of the place where the control 
should go if at least one bit in the resulting bit 
string comes out to be 1. 
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(iii) I’ailure— label I Address of fhe place where the control 
should be transferred if all the bits in the resulting bit 
string happen to be zeros. 

(iv) End-label: Address of the place where the control should 
go after executing Unit-1 in case of success. 

The scalar expression is coded by the expression processor, 
which returns a label to the lE-processor. The coding generated 
by expression processor would be as follows: 

Code for evaluating the expression, 
converting it to a bit string, if 
necessary, and bringing the bit string 
j in the accumulator 

TZE Ealabel 
TEA Salabel 

where , 

” alabel” is the label returned to the lE-processor by 
the expression processor. 

The EPP assigns a unique IE-serial numb’er to each lE- 
statement. Unit— 1 and Unit— 2 would be coded like any other 
part of the program, depending upon the statements involved in 
the units. The final code corresponding to an lE-statement 
could be represented, schematically as follows; 

T.ifno EQU * generated by 'Success-label' 

routine 

l^oding for Unit-l'~| 

TEA E. ifno generated by 'Eailure-label' 

routine 

E. ifno EQU * generated by 'Eailure-label' routine 

[coding for Unit-^ 





Eiifno EQU * generated by 'end-label* routine 

Ealabel EQU Eiifno generated by the lE-processor 

Salabel EQU Si if no 

where ’»ifno-^ is the IE-serial number. 

2. GO TO STATEaiEUT 

2. 1 General Eormat : 

] GOTO ? j label-constant 
j GO TO j 'i scalar-label-variable| 

>0 refer-ence j ' 

GOTO statement causes control to be transferred to a 
statement which is specified by the destination after GOTO/GO TO 
It is used to break the noimal sequential flow of the program 
control. 

2 . 2 General Rules : 

1. " Reference" is a reference to a procedure which 
returns a label constant as its value. 

2. A GOTO statement cannot pass control to an inactive 
block. 

A GOTO statement cannot transfer control from outside 
a DO-group to a statement inside the DO-group. 

3. A GO TO statement that transfers control from one 
block (S) to a dynamically encompassing block (D) 
has the effect of terminating block S, as well as 
all other blocks that are dynamically descendent 
from block E. The block closing is treated as 



normal block closing either by a REIHRIT statement 
or EUD statement. 


2*3 Examples and Implementation : 


Consider the following hypothetical example: 


MATS : 

EV3(1): 

1C1 : 

102 : 173 ( 2 ) : 
1C3: 
1T3(3): 

lABPRC : 


PROCEDURE OPTIONS (liilN) | 

DEClAliE 1V1(3) lABEl INITIAl (1C1 ,1C2 ,103) , 
1V2 lABEl, 173(3) MBEl; 

DO 1=1, 2, 3; 

GO TO 171 (I) I /* GOTO 

DESTINATION - AN ARRAY ElE&iCENT V 
172=1011 

GO TO 103; /* G-OTO DESTINATION - 
A lABEl CONSTANT V 
172=102; 

EKD; 

172=103; 

GOTO lABPRC; /* GO TO DESTINATION - RESUIT OE 

REFERENCE */ 

PROCEDURE; 

RETURh' (173(RNDI1*3.0+1)) ; 

END lABPRC; 

GO TO 172; /* Scalar GOTO */ 

END IWAIN; 


. Example GT-1 

Some interesting points are brought out by this example. 
The destination of the GOTO statements is of the following type s- 

i) laUel Constant: Such a GOTO is the basic of all, since 

ultijnately all other types of GOTO destinations are 
transformed to this type. ' 

ii) Array Element : The "value of the array element used in 
the destination of the GOTO statement. This mode of GOTO 
acts like a multiway switch and can be thoi:ight of as 
something similar to FORTRAN computed GOTO statement . But 



it is much more general than the latter since the corres- 
pondence between the computed index and the destination 
can he changed during rim time, 

iii) Reference: Ihis is the most general form of a G-OTO 
statement,' Nothing of this type exists in RORTRilT. 
Consider the example GT-1 , in which a procedure is 
defined (MBPRC) which returns label constants as its 
value, The label constant returned becomes the destina- 
tion then. ' 

Though this example can be simulated without using a 

procedure by changing the statement 

GOTO MBPRC I by GOTO (LY3(RKDY(1)*3.0+1)) 5 

yet it serves to illustrate the focal point. The procedure 

LABPRG calculates the subscript to be used with the label 

array element. The calculation of subscript is effected 

by calling a built-in, random number generating routine. 

RJTDYI returns a uniformly distributed random number in 

the range ‘ 0£x< 1.0. 

In fact any procedure can be invoiced as long as it returns 
a label constant as its value. 

2.3.2 Implementation ; 

For implementing, GOTO statement has been classified under 
following classes: 

1. Ordinary GOTO (destination a label-constant) . It can be 

further subclassified as, when 



P.C-7 


a) Uo block closing and no do closing is involved. 

b) Only block closing is involved. 

c) Only do closing is involved, and 

d) Both block closing and do closing are involved. 

2. Scalar GOTO (destination either a normal 'label variable or 
a formal label variable). 

3. Expression GOTO (destination either an array element, 
a fimction reference or a label expression) . 

label expression is an expression whose value is a label 
constant. Example of label expression 

DECIAEE BIT BIT; 

L2:S-2; 

• 

GOTO (BIT*L1 +(1'T0T BIT)* 12); 

(This type of GOTO is prohibited in this version.) 

(a) Ordinary GOTO ; 

Consider the following example. 
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MAIH : PROCEDURE OPTIONS (MAIN); 

DECLARE C(10); 

D1 ; DO 1=1,5 TO 10 BY 1; /•?«• PIRST DO-GROUP */ 
GO TO LI; /* NO BLOCIC/DO CLOSING */ 
L22:L2: A=C(I) 

L2: : do J=1 TO 10 BY2; /* SECOND DO-GROUP */ 

L3:L9 : A=C(j) ; GOTO L2',/* ONLY DO CLOSING V 
B2 ; BEGIN; 

GOTO L3; BLOCK CLOSING */ 


GOTO L22; /* BOTH BLOCK AND DO CLOSINGS */ 
END D2; 

L1 : A=1.0 

END miN; 


Example GT-2 

Definition: Source: Place where the GOTO statement occurs 

Source has attrihutes of hlock number and DO 
number. 


(i) NO Block/do closings : 


Consider the statement 'GOTO 11;’, It transfers the control 
to a statement which is in the same block and in the same do- 
group as the source . 

Coding of such a GOTO is the simplest - 
TRA label 

where , 

"label" is the destination address. 
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(ii) .Only Block Closing t 

• Consider ihe statement '* GOlO L3 ; "i 
Both the source and the destination are internal to the same do 
and hence have the same do numher, but their block nirnibers are 
different. Source is internal to B2, whereas the destination 
is internal to MAIN i In this case block B2 would have to be 
closed before transfer can take place* 

Code generated for such a case is, 

ISX G1BL0K,4 

PZE label 

PZB sblno,,dblno 

where , . 

” sblno " is the block number of the source, and 

" dblno •• is the block nimaber of the destination. 

The GTBlOiv is a part of " run time stack management routines" 
(Appendix-0) . It goes on closing the blocks till it reaches the 
destination block. During this process, if more than one genera 
tion of a RECURSIVELY called procedure exist, and control is to 
goto a dynamically encompassing block, all, the generations are 
terminated. 

While terminating .the blocks, till the destination block 
is reached, if run-time stack gets emptied, it indicates an 
error; -fche destination is inside a block which is not open when 
the GOTO statement is being executed. 



( iii ) Only DO Closing : 


Consider the statement *0010 12 j' 

Though "both the source and the destination are internal 
to the same block (tlAIN) , yet they belong to different DO-groups. 
-Source is internal to the second DO whereas the destination is 
internal to the first DO. 

A DO Status Table (DST) is maintained at run time which 
keeps the uDo-predecessor relationship and Do-Status (Open/Close) 
information for every DO defined in the program, except the DO's 
used in Input/Output statement. DO status bit is ON, if that 
particular DO-group is open. The do number of the inner most DO 
group open is kept in a location called DOSRNO. The DST is made 
use ...of for determining the illegal transfer to Inside a closed 
DO from outside the DO. 

The code generated is as followss 

TSX GTD0BL,4 

P2E label 

PZE s-dono , ,d-dono 

where , 

•' s-dono " is the do number of the SOURCE, and 

” d-dono *’ is the do number of the DESTINATION. 

The routine GTDOBl follows the do predecessor relation- 
ship till it reaches the destination DO group. If the status 
bit of the destination DO is OEE, it indicates illegal transfer 
from outside the DO to inside the DO, The do status bits are 
updated every time a DO— group is opened or closed. 
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(iv) Both Block Closing and DO Closing : 

Consider the statement 'G-OTO 122; ' 

The soiirce is internal to the block B2 and the DO group 
D2 whereas the destination is internal to the block IIAID and the 
DO group D1 . 

The code generated for this type of GOTO is 

TSX GTDOBl,4 
PZE label 
MZE s— dono 5 ,d-dono 
PZE s-blno , ,d-blno 

It would be noted that GTDOBl was called for the case (ill) 
also when no block closing was invol-^ed. To distinguish between 
the the two calls j/sign of the third word in the calling sequence Is 
made use of. 

This call is executed in two parts. Eirst- GTBIOE is called 
to close the blocks and then GTDOBl is called (via first calling 
sequence) to close the DO~groups, 

"b). Scalar GOTO : 

Consider the statement "GOTO 1V2;' 
where 1V2 is a scalar variable (normal). The code generated for 
this case is 

TSX GTSC1R,4- 
pfx fstaddr 

where , 

" fstaddr" is the first order stoi^ge address of the 


variable . 



PC- 12 . 

'• pfx" = PZE for normal scalar 
liZE for formal scalar 

The routine CTSCIR determines whether 3.x\j block closing 
or DO -closing is involved or not. This is done by consulting 
DOSRITO, PSREO. and the value of the scalar, which contains 
block number, DO number and the address where to go in the 
following format ~ 

-■- fblno f donoj'^j label j 

J ! fnii I 

The. global location PSRNO. contains block number of the latest 
block open and DOSREO contains the DO number of the inner most 
DO open. Depending upon the four possibilities it branches to 
the four routines described in section (a) with ordinary DOTO. _ 

(c) Expression GOTO ; 

Exipression processor is called to process the 'expression 
and to generate the code for evaluating that expression at, run 
time. The 'value of the expression is brought into the accumula- 
tor. Then the code generated would be as follows: 

Coding for getting the value of 
expression .in Accumulator 

TRA GTARIT . 
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Phe routine GTARlT acts as follows S 

STO IS!, CP 
TSX GTSCLR,4 
PZE TEICP 
TEliP . -BSS 1 

i.e. it stores the value of the expression in a location called 
TEBCP. Then expression G-OTO becomes a scalar GOTO. 

Function Reference and Call Statement : 

3,1 SYNTAX: 

General format of function reference; 

i entry name [generic namet [^(argument [,argumentj| < . . )3 T 
General foimat of CAIi statement i 

CALL I entry name [generic name| [(argument 

£5 argument] *..)]; 

where " argunient ” is a scalar- expression, file name or label 
constant. 

A procedure block can be invoiced either by a CALL state- 
ment or by appearance of its name. The latter is called 'f-unc- 
tion reference' whereas the first one is called ’subroutine 
reference’. The essential difference between the two is that 
while ’function reference’ expects a value to be returned as a 
result of procedure invocation, CALL does not expect any result. 

In case a generic name is used, the compiler selects 
one of the many members belonging, to this generic family , depend- 
ing on the attributes of arguments used in the argument list;-. 



3.1.1 ■ QODIHG OF gimction Reference and C ALL Statemen t : 


The list of argments following the procedure name is 
processed hy the expression processor which generates a coded 
list (argument-list) and outputs it under the location counter 
'JUUK* in order to "bypass the noimal sequential flow of the 
program. If any constant is used as an argument, it is assigned 
to a temporary and the temporary address is supplied to the 
argument list. Argument list has one word for each of the argu- 
ments which stores the first order address of the variahle. 

In case of an expression being the argument, the expression is 
evaluated, result assigned to a temporary and address of the 
temporary filled in the argument list. 

If a formal scalar is being passed as an argument, special 
care is to be taken while preparing the argimient list. Since 
formal parameter involves one level of indirection for some 
scalars (Appendix D) , the address contained in the locations 
assigned to the. formal parameter should be filled in the argu- 
ment list, and not the address of the formal parameter storage 
space. This becomes necessary because the prologue list process- 
ing routine when it consults the argument list, has no way 
of finding out whetheraformal parameter is being passed on or 
a normal variable is being passed on as the argument. 

The code generated for invoking a procedure is as follows: 



iPoi* Inunction Rsfeirences 


r 


TSX 

TXI 

PZE 

PZS 


|i4 0PPR^4 
■^+3 5 >ai‘gldt 
PHWadr 
temp , jiniityp 


Por CALL Statement: 


LSX 

TXI 

PZE 

PZE 


R* 0 PPR ,4 

,arglst 

PH7fedr 

0 


wLere , 


” arglst ” is the address of the argnment list* 

Zero,, if there are no argtunents, 

Pllrtadr is the address of the procediire header word, 

” temp'* is the re suit -receiving temporary address, 
mntyp is minor type of the result expected, (Appendix-J)) 

R.OPPR is a routine which opens a procedure when invoked 
either by function reference or a C.iLL statement, makes the 
link cell, and does the prologue initialisation. For details 
x*0X0i?onc0 stiould. 1 d 0 in3,(i0 *t;o ilppGind.jLHi— 0 • 

Fourth word lu the oalllug sequence :b used to distinguish 
between two types of calls. If fourth word is hero. It Indicates 
a call from Call-statement otherwise from function reference. 

3.2 RETURR-StatRTTiAn-h > 

3.2.1 General Format ; 

RETURE [(scalar expre ssion )] ; 
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The HETURIT statement can have two options: 

Option-1 : 

RETimi; 

Option-2 : 

EETUBIT (scalar expression) ; 

3.2.2 General Rules: 

1 . Only the RETURN statement of opt ion- 1 can be used to 
terminate procedures not invoked as function procedures; 
control is returned to the point logically following the 
invocation. 

2. The RETURN statement in option 2 can be used to terminate 
a procedure invoked by a function reference as well as by 
a OaLL statement. Control is returned to the point of 
invocation, and the value returned to the function refe- 
rence is the value of the expression specified in 
RETURN, converted to conform to the attributes declared 
for the invoked entry point. These attributes may be 
specified explicitly at the entry poa.nt, they are other- 
wise implied by the initial letter of the entry name by 
which the procedure is invoked. If the type of the result 
being returned does not match with the type that was 
expected at the time of making the call, necessary conver- 
sion is made, if possible. 



3» If control reaches an. EKD s-feateaent corresponding to the 
end of a procedures this BHD is treated as a RETUEH statement 
(of the option-1 ) for the procedure. 

3 ♦2*3 GOD IMG of RET URH^Statement i 

Bor Option-1 : 

TSX CLPIil/m,4 

Bor OptiOn-2: 

Code for evaluating the expression, 
if any and for assigning the result 
in a temporary 

TSX CIBRRI',4 
PZE temp , jnmtyp 

Code for evaluating the scalar expression, if any is 
generated by the expression processor. The result of the 
expression is assigned to a temporary. In case there is no 
expression but only a constant is being returned, it is outputted 
and its address is plugged in place of 'tenp Similarly , if con- 
tents of a scalar variable are being returned as. result, address 
of the f irst/storage area allocated to that variable is plugged 
in place of ’temp'. Bor a formal scalar involving one level of 
indirection, the contents of that word are plugged in place of 
'temp ' . 

Both the routines CliPRET and OIjPRWA. are part of the 
•Run Time Stack liana gement Routines ’(RTSIvIR) and are explained 
in Appendix-0, They do all the Book keeping operations and 
serve as epilogue. 
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3.3 BEGIl-Statement : 

3 . 3.1 General Pormat ; 

BEGIN; 

3*3*2 General Rule : 

A BEGIN Statement is used in conjunction with an END 
Statement to delimit a begin block. 

3 . 3*3 Coding for BEGIN Statement : 

AXT blkopn,1 
TSX R.0PBG,4 

where 'blkopn' is the block serial number of the block being 
invoked. R.OPBG routine, again, is a part of RTSMB. The job 
assigned to this routine is mainly for making a linkage cell* 

Unlike a procedure invocation, which occurs with break in sequence, 
begin block is invoked, in the normal sequence, when control comes 
to the BEGIN-statement . 

3.4 END-Statement ; 

3 . 4.1 General format ; 

END [label] ; 

The END statement terminates blocks and DO-groups, 

3 ‘4. 2 General Rules ; 

1. If a label follows END, the END statement terminates the 

unclosed block or DO-group that is headed by the nearest preced- 
ing heading statement having that label; it also terminates all 
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Tmclosed blocks and DO~groups that are lexicographically within 
that block or group, 

2i If a label does not follow EHD, the EM) statement termi- 
nates that group or block headed by the nearest preceding DOj 
BEGIN or PROCEDURE statement. 

3, If control reaches an END statement, terminating a 

procedure, it is treated as a RETURN statement* 

The detection of 'multiple closing* and classification 
of EHD as to whether closing a DO-group, BEGIN-block or PROCE- 
DURE-block is done in first pass itself. In case of multiple 
closure first pass supplies as many ENDa as necessary, each with 
sufficient classifying information, 

3 . 4.5 Coding of END Statemen t: 

Por END closing a BEGIN/PROCEDURE block: 

TSZ CLSEND,4 
Por END Closing a DO-group: 

TSX CDOSDO,4 

Both 'the routines are parts of RTSMR. In case this END 
statement is being used as a RETURN statement, CDSEND merges 
with the CEERWR routine. Otherwise it removes the link cell 
from the run time stack and updates the block-open number. 

It then returns control to the calling point to execute 
the next sequential instruction. 
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The function of CliOSfO routine is to put off the 
PO-on-flag corresponding to the PO number of the PO-group 
being closed. It also updates the POSRHO, which contains 
the serial number of the PO which is open. In case there 
is no such PO, POSRPO is made zero. 

4. Procedure And Entry Statement : 

4.1 SYNTAX: 

ENTRY statement: , 
gentry name:] ..... 

ENTRY |](parameter[],parameter]| . . . )] 

[options (option list)J 
[returns (data -attribute list)]; 

PROCEDUBE statement: 

{entry name:] ... 

PROOEPURE [(parameter [jparameter] . . . )j 
[options (option-list)] 

[RECURS I’VE] 

[RETURNS (data-attribute list)] 

[ORPPR |REOROSRj ; 

4.1.1 SYNTAX Rules: 

U The- OPTIONS, RECURSI’VE, RETURNS and ORPER| REORPER 
options may sappear in any order. 

2. The syntax of OPTIONS-list is not restricted in PP 7044. 
In fact it is completely ignored by this compiler, as also all 
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other attributes except KETUItlTS; They are accepted for the 
sake of compatibility. 

5 . Any procedure can be invoked recursively irrespective 
of the fact whether KECUR.SI'VE attribute is defined or not* . 

General Rule s; 

1» The 'parameters' are names that specify the par^eters 
of the entry point. When the' procedure is ilitoked §, relfittiOh^ 
ship is established between the arguments of the ItlVo cation 
and the parameters of the invoked entry point* 

2. Only, arithmetic attributes can be used inside BBTnMSriS 

option. The data attributes specifying string^length attri- 
butes are ignored, 

3* An EFTRT statement cannot he internal to a MGll block.- 
PEOCBnURE and EMEEY statements cannot be internal to a I>0- 
group . 

4 . If an BHTRy/PROCEDIJKB statement has one or more than 
one label attached to it but does not specify KETURIJS specifi- 
cations, defaults are applied separately to each name, depend- 
)Dly ing on the initial letter (or^/letter: ) of the identifier^ and 
to each returned value as if it had an identifier' beginning 
rdy with same letter (or/letter ) as the corresponding entry 
name-. 

Consider the statements 
' B:d:PHOGEDnilE RSTDRIS' (IIXED (5,-0)); 

A-:.I:™rY; 

' 
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Pionction reference to either of B or J would re tism an 
integer value, whereas function reference to A would retvirn a 
floating point constant .^function r eference to I would return 
an integer value, though both of them refer to the same entry 
point. 

5. An extra restriction has been put on the use of DECLARE 
statements. All DEOIARE statements should be put immediately 
after the PROCEDURE or EIOTRY statement. In fact only specifica- 
tions, and not declarations should be put after ElWRy statement. 

This restriction solves many complicated logical prob- 
lems. Eurther comments on this would be made at the end of 
this chapter. 

4-. 2 Prologue and Parameter List ; 

On entering a block certain initial actions are performed 
i,@, allocation of storage for automatic variables etc. Each 
block consists of three parts - 

a) Prologue 

b) Text, and 

c) Epilogue. 

Prologue does all the initialisations before entering the 
text portion. 

Text portion represents the actual code of the block. 

Epilogue does all the work, of resettingjOnce a block is 


terminated 
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At the beginning of the prologue, the following items 
are available for computation: 

ii The established generation of automatic variables 
declared out side the block and known within itj 
2. Static variables known within the block* 

3* Arguments passed to the block. 

The prologue makes available for computation all the 
variables known within the block as follows. In making 
AUTOMATIC variables declared in the block available the 
prologue may need to evaluate expressions concerned with 
automatic data. Such expressions may occur specifying lengths, 
bounds, size of arrays and iteration factor. However, a cir- 
cular definition should be avoided, It constitutes an error 
i;vhich can not be detected by our compiler, e.g. following 
declaration is illegal, 

BECIiiBE A(M(I)), M(A(j))j 

The prologue in a conventional compiler viz, IBPTG of 
IBM-7044, is put along with the procedure. The prologue of 
PL-7044 is divided into two parts. The job of making arguments 
available to the procedure being invoked, is taken away from 
the procedure, and is delegated to the calling block. The job 
of assigning area for automatic variables is, however, still 
with the procedure. 
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For every entry namej one word is outputted, in the 
code, lAhich is called the Procedure Header Word (PHW), PHW 
contains the following information - 

i) Prologue list address (prglst) 

ii) Address of the entry point where transfer should go 
(ent add). 

iii) Block number of the block to which the text of this 
procedure belongs. 

The format of PHW is as follows - 



where, YX is the block number (in OCTAL characters) to 
which the text belongs, e.g. for a block with number 13, 

Y = 1 and X = 5* 

Prglst is zero if there is no argument for this procedure 
reference. 

While invoking a procedure , PHW is consulted by the 
run time block invoking routine to determine the things ' 
listed above. 

PHW is transmitted, if an entry name is used as an 
argument. 

4.2.1 Prologue Lisf ; 

Prologue list is genex'ated at the compile - time, while 
processing the specifications for formal parameters. Prologue 
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list stores the first order storage address, parameter ihliniber 
and the type of that parameter « It is then used for making 
the argument list known to the procedure* 

The prologue list has one word for each of the parame- 
ter that is not a major structure* lor each base element of 
the major structure, two words are .used in the prologue list. 
The format of the prologue list word is as follows - 



fst add 

PARMNO Major i 

1 

1 

1 type 1 



where " fst add” is the address of the first order storage 

(in case of multiword, it represents the 
address of the first word) assigned to the 
parameter. 

PARMITO is the serial number of the corresponding 
parameter. 


Major type is one of the following: 
Major type Description 


1 integer/floating point/complex array 

2 not applicable (Pictirce integer/floating point 
array) 

3 character string array 

4 Bit string array 

5 Babel array 

not applicable (non numeric picture array) 


6 
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11 

12 * 

13 

H 

15 

16 
17* 
18 -^ 


Descriptio n 

integer/floating point scalar 
complex scalar 

not applicable (non numeric picture scalar) 

not applicable (Picture integer/floating 

point scalar) 

label scalar 

file constant 

bit string scalar 

bit string (varying length) scalar 

character string scalar 

character string (varying length) scalar 

major structure 

entry constant 


The format of prologue list words for a base element 
of a major structure is as follows: 



where , 

Major type is one of those given above except the 

ones marked vfith an asterisk, since they 
can not occur as base elements of a 
structure. 
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The base elements of a structure cause the generation 
of two consecutive s words. The base element definition for 
a structure is ended by the following word 



The entire prologue list for one procedure or entry 

statement is terminated by the following word 



0 

All the prologue lists are generated under one location 
counter called ’PROLOG' to keep them out of the normal sequence 
of execution. The prologue list generated for the following 
example would serve to illustrate the main points. 

E: PROOEDUBE (A,B,C); 

jjEGLARE a GOIEPIEX, 1 0, 2 L, 3 E REAL, 3 E (10), 

2 G CHARACTER; 

< statement other than a declare statement > 


Prologue list Generate d: ' 


USE 

L00001 EQU 
■VEL 
VEL 
WD 
OCT 
YED 
OCT 
YFD 
'OCT 
PZE 
WD 
PZE 


PROLOG 

3/0 , 1 5/BS . 02+000000 , 6/ 1 , 6/8 , 6/5 
3/0 , 1 5/BS. 02+000002 ,6/3,6/17,6/5 
3/0 , 1 5/BS. 02+000003 , 6/0 , 6/7 ,6/7 
000000000000 

3/0 , 1 5/BS . 02+000004 , 6/0 , 6/1 , 6/7 
000000000001 

3/0 , 1 5/BS. 02+000005 ,6/0 ,6/15,6/7 
000000000002 

; , 

3/0 ,1 5/BS. 02+000006 , 6/2 , 6/7 , 6/5 
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It is asstimed that hlo^l-c ntimber of the block is 2. 

'BS.02+ offset’ represents the first order storage address. 

It should be noted that prologue list is not in the same order 
in which parameters appear in the PROCEDURE/EtirRY statement, 
because xne order of their appearance in prologue list depends 
upon the sequence of declaration. In this particular case 
first word is for A, followed by 8 words for the structure C 
and one word for B, which is given default attributes since 
no declaration is given for it. The last word indicates the 
end of the prologue list, 100001 represents the address of 
the prologue list for this particular case. 

Coding of PROCBBIJRE and EBTRY Statements : 

4.5.1 Coding of PROCEDURE Statement : 

TSl DCl.bn 
TRA BBC. bn 
BCl.bn PZE ** 

Code for array allocation expression evaluation 
for string length, initialisation etc. Code for 
doing label initialisation of prefix type 

~TRii* BCl.bn 
BBC. bn EQU * 

where, bn is block number. 

This scheme of putting code for s torage allocation and 
initialisation out of normal sequence becomes necessary to take 
care of invocation of the same procedure at secondary entry 
points, because in that case also all this work would have to be 
done before starting the actual text since it is part of the 
prologue. 
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Reason for not allowing ordinary declarations to appear 
after an ENTRY statement is precisely this; If it is allowed, 
another small chianlc of code would have to -be generated out of 
the normal sequence. Since there is no restriction on number 
of secon'^ary entry points that can be defined, there might be 
many such isolated pockets of code lying in the program. 

It is not that it cannot be taken care of, but at the 
expense of both storage space and execution time. A chained 
structure j like label initialisation of prefix t3?pejCan be 
maintained which can be followed in exactly the same manner 
as the other list. Since label initialisation of prefix type 
would not be used that ■ frequently , the resulting inefficiency 
can be tolerated but not in the present case because it would 
be used in almost every program. 

4.3.2 Coding of ENTRY Statement : 

TSL ECL.bn 

The requirement that all the specifications be put 
immediately alter the ENTRY statement or PROCEDURE statement 
is necessary to end a particular prologue list before the other » 
is started. This becomes necessary for another reason alsM>. 

Since all parameters need not be specified explicitly in a 
DECliLRE statement, prol.ogue list entries would have tobe genemtefl 
for such cases, corresponding to default attributes. 

Dike the case of declarations, a chained prologi:^ list is 
alternative to the restriction, but once again, increased storage 
requirements and increased execution time because of chaiBijJ^ 
weigh in favour of the arrangement 
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A- 1 ; Ohara cter Sets ; 

Eor v«?iting the so-urce program in PL-7044 » 48-character 
set is to he used. The 48 - Character set is a subset of the 
60 - character set. The 48- character set comprises of 26 alpha- 
bets, 10 digits, and 12 special characters. 

The special characters, are , 

Character Representation 

Blank 

Equal sign or assignment symbol = 

Plus sign + 

Minus sign - 

Asterisk or multiply symbol * 

Slash or divide symbol / 

left parenthesis ( 

Right parenthesis ) 

Comma , 

Point or period . 

Single quotation mark ’ 

Dollar symbol $ 

To represent the remaining characters of the 60 - character 
set 5 which are used in Pl/I language, composite symbols are used. 

■ ■ i , I#'' . • 

The list of composite symbols and the equivalent 60 -^character 
set representation is given in the following table. 
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Composite SthiIdoIs 60-claaracter 

C set 

Com-posite Symbols Equi'valerit . Kame 


• • 


Colon 

9 • 


Semicolon 

OR 

I 

'Or" Symbol 

AKD 

& 

"AND" Symbol 

GT 

> 

’GREATER TIiAN". Symbol 

IT 

< 

" LESS THAI" Symbol 

NOT 

1 

"NOT " Symbol 

IE 

<= 

'LESS THAI EQUAL TO " Symbol 

OAT 

li 

'OOICATEIATIOI " Symbol 

** 


'EXPOKEIT lAT lOI " Symbol 

N1 

i< 

'NOT LESS THAI" Symbol 

m 

7> 

"lOT GREATER THAI" Symbol 

m 

1= 

'HOT EQUAL TO " Symbol 

// 

% 

’EERCEIT" Symbol 

GE 

>= 

'GREixTER THiil EQUAL TO " Symbol 

/* 


"START OE COiyiMEIT " Symbol 

V 

V 

'EIL OE COiVEffilT " Symbol . 


With 48- character set, following rules are to be observed: 

1. The two periods that replace the colon must be immediately 
preceded by a blank if the preceding character is a period, 

2. The two slashes that replace the percent symbol must be 
iminediately preceded by a blank if the preceding character is an 

asterisk, or immediately followed by a blank if the following 

0 

character is an asterisk. 
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3. • The sec[uence " Comma Period ” represents a semi colon except 

when it occurs in a comment or character string, 

A2: LEXIOill EEPEESEUTATION OE ViiRIOUS lEXEUITS; 

Operators . 

descp 

_! 

where , 

’bp” is compare priority, and 

’descp" is the description number which uniquely ■ identifies 
an. operator and is used in table look up etc. 

’descp" and " ep " for various operators are as follows; 
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10 

11 

12 

13 

14 

15 

16 


£2 


r 

11 

10 

10 

9 

9 

7 


6 

6 

6 

6 

6 

6 



Unary minus (assigned by the 
expression processor) 

NOP 

** 


/ 


CiP 

Relational ’=' (EQ) (Assigned 
by the expression processor) 

IE . 

GP , 

GE 

NG ■ ■ 

LP 

m 

Nil 


Oontd 
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17 5 MD 

18 4 OR 

19 4 

20 3 ) 

21 11 ( 

22 11 

23 2 

24 4 


Operands : 

Unlike operators, operands contain both the type infotfeation 
and their description. Type is available in a word called TYEEI , 
v>/hereas the description is available in other associated words, 

The actiml operand is collected in a six word buffer called 
lEXBUF. 

where ” type " is 
ty^e 

1 
2 

3 

4 

5 

6 
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Pseudo Reserved Y/ords ; 

These represent identifiers having special meaning. The 
actual name string is available in words starting with LEXEUP 
and word count and character count is available in WCOUPT and 
GCOOTT respectively. The code number to identify a particular 
pseudo reserved word is available in COPE. 

Identifiers : 

These are ssnabols which have no special meaning. Their 
description is exactly like pseudo reserved words except that 
they have no code numbers. 

Integer/Ploating point constant: 

Actual constant, converted from BCP to Binary, is available 
in lEXEDE. 

Actual bit string, left justified, is available in 
liEXBIIP and bit count is available in CCOUM. 

Character String Constant: 

Actual character string is available in words starting 

with lEXBIIF , and word count and character count is available in 
WCOOTT and CCOUIW respectively. 
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Constants in PIi-7044 : 

Constants tbat can be used in PL 704-4 are of the following 
five types: 

1. Arithmetic constants, 

2. String constants, 

3. Statement label constant, 

4. Entry constants, and 
*' 5, Pile constants. 

Arithmetio Constants : 

Arithmetic constants can be one of the three types. 

a) Integer Constants: 

IVIaximum length of integer constants allowed in 27 bits 
i.e. an integer greater than 2^'^-1 (163708927) can be used. 
Examples: 121, 0, 7777 etc. 

b) Bloating Point Constants; 

Bloating point constant of PL 7044 is exactly like the 

floating point constsint of IBM 7044 - BOKDRAN i.e. the range is 

—38 +38 ■ 

10 to 10 with 8 decimal digit precision. 

Examples: 1.23, 1,OE-10, .0003, 5E2 etc. 

c) Complex Constants: 

Complex constants can be of two types 
i) purely imaginary constant e.g. + 21 and 

A--' ' 

ii) Complex constants having real and imaginary nart 
both, e.g. 1 + 21,, 
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Complex constant is stored, as real constant and. imaginary 
constant. Both these constants are floating point constants. 

The internal representation of the tv/o constants shown here would 
he 0 + 2.01 and 1.0 + 2.01 respecti-vely. 

String Constants : 

String constants are of two types: . 

a) Bit string constants: 

Each digit can he either 1 or 0 only. Its representation 
is as follows - 

MOI'BB, ’O'B , "B 

Ihe hit strings 'O'B and 'IB are different, first being 
a hit string of length 1 whereas the latter is a null hit string. 
Maximum length of a hit string can he 36 (word size of IBM 7044)* 
Bit string is stored left justified with remaining hit positions 
filled with zeros. Each constant at run time would. he stored in 
two consecutive words, first word containing the actual hit 
string and the second word contains the hit string length. Ihe 
representation of 'O'B and "B would he as follows 

1 0 1 — - — — — ^Z eros padd ed — — — j 'O'B 

i jJ 

j ..ii Zeros padded ' 'B 

r ^ 

h) Character String Constants;-, 

.A character, string can he constructed using any of the 
48 characters of the 48-character set.. The representation of a 
character string is as follows; 
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'GIRIBI Hi£CAO' 

' C . I . =PR*( 1 . +RT/ 1 00 . ) **NY-PR ' 

! T 

! ! 

Phe last two character strings are not same. Pirst of the two 
is a character* string of length 1 containing one *hlank’ character, 
The . last one is a' null character string i.e. string of length zero, 
The length of character string represents the number of characters 
in the character string. Mazimum length of a character string cons- 
tant can only he 30. 

If quote happens to he one of the characters of the string 
then it should he repeated i.e.. two quotes for each quote that 
is a part of the character string e.g. 

TEXT REPRESEInTTATIOR 

IT WON’T HAPPEN . 'IT W0N«T HAPPEN' 

"IKDN'T GO", SHE SAID •""D0N"T GO,"" SHE SAID* 

tf rifTt? 

Each character string constant is stored in consecutive words 
with remaining right most character positions of the last word, 
if any, padded with blanks (060 in IBM 7044). The first v;ord 
in the storage for a character string constant, stores its length. 
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I 0 

! p I i i 

'STOP' 

I 


^ J.i] 


' I G 

i 0 

1 

“1 — 

I [t i oi 

i — a — J ^ 

‘GO TO HELD 

i H 

1 E . 

IlI ij «i 



# 
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Repetition Factor : 

The representation of a long string, containing a repetitive 
substring can be made quite concise by using 'repetition factor' 

e • s • 


Expanded form 

Short form 

' 111 111 1 'B 

(7) '1 'B 

'ABCABCABC 

(3) ’ABC 

’10101010'B 

(4) '10'B 


The length restriction of 50 characters holds for the 
expanded string constant. Thus expanded bit string constant 
should not use more than 36 bits while the expanded character 
string constant should not be more than 3Q characters long. 

Statement Label Constants : 

Statement label constants are the symbols prefixed to any 
statement except the PROCEDURE and ENTRY statements, e.g. consi- 
der the following statements - 

COtIPUTE: A = B+Cj 
BRiNCH; GO TO HELL; 

1AB1 :IAB2:IAB3:D0; 


In the above example COMPUTE, BRANCH, .I.AB1 ,BAB2,MB3 
are statement label constants. The constructed label constant 
foa?mat is as follows 


bl. 



no. j 



Label Address 





where 
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" hlno. ” is the serial number of the block to which the 

statement appended to the label constants, is 
is internal. 

” Do-number” is the serial number of the immediately encompaj 
ing do-group. In case no such do -group exists, 
it is zero. 

” label Address” is the starting address of the code geheratl 
for that statement. 


This constructed label constant is used in label assignment. 
Entry Constants; 


Entry constants are symbols prefixed to the PROCEDIIRE and 
EjSTRY statement. In the following example EACTORIAl, MAIIT, 
IJTTEG-ER, COMPIEX and ElOATINGPOIIST are examples of entry constants. 

PACTORIAl: PROCEDUREi 

I'lAIN: PROCEDURE OPTIONS (ivIAIN) ; 

COaiPlEX : PLOATINGPO DIE : INTEGER 

PROCEDUREiX) RETbWS (REA1(10,0) ) ; 


Since entry variables are not allowed in PI 7044? constructed 
entry constant is not defined. However since entry constants can 
be passed as arguments, a procedure-header-word is defined with 
every entry constant, whose format is as shown below, 


xt prglst address I y 


text address 


where 


” ym” is the serial number of the block to which the code 


belongs. 
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” prglst address" is the address of the prologue list 

generated, if any, for the entry point, otherwi 
it is zero. 

" text address" is the address Tfhere the control should he 
transferred at the time of invocation. 

Pile Constants : 

Pile constants are names given to files which are then 
referred to hy these names, e.g. 

DECIAPE lEPUT PIPE; 

OPEN INPUT; 

INPUT is a file constant here, constructed file constant 
representation while transmitting as an argument is, 

'Vfk Wk 

where , 

f.c.h. is file control hlock address and 

f.s.h. is file status hlock address. 
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Fames in PL 7044 : 

Every variable defined in PL/I is given an alphameric 
mme so that a reference can be made to it by this name. Fames 
can be of two types: 

i) Fon q.ualif ied or Simple names 

ii) Qualified names 

Fon Qualified Fames (FQ-name) : 

Pollowing rules should be observed while constructing a 
FQ-name : 

1i) first character (or the only character) of a name should 
be one of the ,26 alphabets. 

% 

ii) Remaining characters can be any of the 26 alphabets and 
10 digits. 

iii) More than 30 characters should not be used in forming 
a name 

(iv) There should not be any intervening blanks .since 
b3.ank serves ■;c cel,imit a name. 

Talid name s: 

BOFD007, iPOILO, 1101, J 
Invalid names : 

llV BOKD.1, ram LAI ' ' 

Q ualif ie d name s ( Q-name ) : 

A Qualified name can be defined as 
FQ-name i. . FQ-name | . . . 
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A q-imlified name is used to refer to minor structures 
or base elements of a structure. 

Consider the following structure: 

DEGIAEE 1 PAYROLL, 

2 RAIvIE, 

3 IASI, 

3 RIRSl, 

2 HOURS, 

3 REGULAR, 

3 OTERLIIviE, 

2 RATE, 

3 REGULAR, 

3 OVERTIME; 

The tree corresponding to this structure would be 



Qualification in the Q-name is in the order of levels | 
that is the name at the highest level must appear first, with the 
name at the deepest level appearing last. 

Since any of the names in a structure, except the major 
structure name itself, need not be unique, Q-name makes it unique. 
Thus in the above example only REGULAR is ambiguous but PAYROLL. 
HOURS. REGULAR and PAYROLL. RATE. REGULAR are not. However, 

names of all the nodes from root to the node in question, need 
not be used in qualification, if it does not give rise to ambiguity 
Though LAST and EIRSE uniquely represent the concerned nodes, 
PAYROLL. ilAME. LAST and PAYROLL. EAME. FIRST represent the complete 
qualifications. 
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D-1 J Variable Types in PL- 7044 : 

. Eollowirg types of variables are provided in PL 7044, 

1. Arithmetic variables 

2. String variables 

a) Bit string' variables 

b) Character string variables 

3. Label variables 

Notation: 'varadr' represents the address of the first order 

storage assigned to the variable, and is available in the symbol 
table . 

A rithmetic Variables : 

Arithmetic variables are names of arithmetic data items. 
These names have been given the characteristics (i.e. attributes) 
of Base 5 Scale, Mode and Precision. PL 7044 bas orly BINARY 
base though it accepts LECIMAL, if specified yet BINARY is implied. 
This is because IBM 7044 bas no LECIMAL arithmetic hardware. Simi- 
larly PL 7044 accepts both PIXEL point and PLOATing point scales, 
with precision specified, for the sake of compatability but 
internally it works with only two representations - Bloating 
point (8 bit characteristic and 2 ' bit mantissa in normalised 
representation) or Integer (27 bit). 

A specification of type PIXEL (m,0) or PIXEL (m) implies 
integer representation in PL 7044 whereas PIXED (m,n),nj<^ and 
PLOAT (m,n) implies floating point representation. 
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Output from PL 7044 compiler is only in these modes 
though input is accepted in the general format, again for com- 
patahility sake* „ 

Thus arithmetic variables can be of three types - 

1. Integer, 2, Floating point, and 3. Complex. 

Integer and Floating Point Yariables : 

Each integer or floating point word requires one storage 
word. In case of formal parameters of these types, this word 
points to the parent integer or floating point variable passed 
as the argument i.e. one level of indirection is involved. 

I integer /fp value |-s ^varadr 

Complex Variables : 

Each complex variable is assigned two consecutive words 
in the storage. In case of a complex formal parameter, both 
these words point to the corresponding words of the argument 
passed. Thus both real and imaginary parts involve one level of 
indirection. 


real part 
imaginary part 


String Yariables : 


-vara dr 


String variables are names of string data items. These 
names have been given string attyibutes. The general format of 
defining string variables is, 
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name name 


; BI2 

} CiliSACTER 


}[ (length)] IjARiniG] 


The length attribute specifies the length of a fixed length 
string or the maximum length of a variahle length string. When 
the length attribute is omitted a length of 1 is assumed. 


While there is no restriction on the length of a character 
string variable 5 a bit string variable length can not be more 
than 36 (IHJ -7044 word size). 

The TARYIFG- attribute specifies that the variable is to 
represent varying length strings. The current length at any time 
is the length of the current value. 


BIT STRIITC-: 


like complex variable , a bit string variable also requires 
two consecutive storage words. The format is 


1 

i 

L 

actual bit string | 

■«;-varadr 

II 

m 

"J.UL 

0 \/fk length ^ 

- ^ !■■///! f 




Fixed length Bit String, 


T 

i 

i 

actual bit string 

-^varadr 

-r- T 

X X 


\/ 1 ■ ' 

m-length [ 7 7] n-length 

K///i ! 



where , 


Varying length Bit String. 


'* m~leiigth ” is maximum length , and 
** p-length *' is present length. 
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The reason for making the sign of the header word negative 
would he explained shortly. 

Tor a formal parameter of character string variable t 3 rpe , 
no special treatment is given, since the header word of the argu- 
ment is copied in the parameter storage word and then it becomes 
exactly like that of a normal variable. 

label Variable : 

A, label variable is a variable that has as values, statement 
label constants (sic). The attribute specification may include 
the values that the name can have during execution of the program, 
G-eneral format is, 

LABEL [(sic [, sic]...)] 

Label variable is given two words from the first order 
storage area. The representation is as follows, 


I 

II 


Value 




-i: — — varadr 


where ” 1st add” is the address of the label-list, if one 
specified otherwise it is zero. Label-list is an array of cons- 
tructed-label-constants generated from the list specified after 
the keyword LABEL. • 

Tor a formal parameter which is given the attributes of 
label variable, the first word points to the address of the first 
word of the argument passed whereas the second word contains 
'1st add' of the argument. 
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Hill now our discussion was limited to scalar variables. 
We will now consider /irrays. 

Storage representation: 



(3n+1 words where n 
is the number of 
dimensions. ) 


Thus it can be seen that array consists of three disjoint 
sets of storage locations. Every array is allocated a header from 
the first order storage (one word for all types of arrays except 
for label arrays with list which have two word header. Second 
word stores the list, address) , ?/hose address is filled in the 
symbol table. Header word points to the dope vector and the 
actual area. Dope vector consists of information about bounds 
etc. and is assigned area from the first order storage area 



(dope vector region); The actml area for the elements of the 
array is assigned from the second order storage or the run time 
stack. 

There is no difference between the representation of a 
formal array and that of a normal array. . 

The format of array elements is exactly like the format of 
scalar variables for all types; except for the character variable 
for an element of a character array, there is no header wprd. 
Therefore, if an element is transmitted as an argument, the addre 
supplied would directly point to the character element whereas for 
the character scalar, it would point to the header wofd and heiice 
one level of indirection would have. to be done to get the address 
of the actual character string element. To distinguish between 
these two cases the sign of header for a character scalar is made 
negative. 

1^2 Major Types and Minor Types : 

All the symbols which can be given an attribute in PL 7044, 
have been classified under two main categories J 

1 . Major Types 

2. Minor Types 

Major Types : 

following is the list of major types : 



Major Type 


Description 
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1 

2 

3 

4 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


Dormal Array 
Dormal Array 
Static Axray 

Not applicable (Defined Array) 
Normal Scalar 
Dormal Scalar 
Static Scalar 

Not applicable (Defined Scalar) 

PROCEDURE without entry list 

PROOEDURB ?/ith entry list 

PROCEDUEE BUIDTIN 

PROCEDURE MAP 

PROCEDUBE GEMERIC 

PROCEDURE Open ended 

Pseudo Variable 

Normal major/minor structure 

Eormal major/minor structure 

label constants 

Eormal entry without entry list 
Eormal entry with entry list 
Pile constant 
Eormal file 

MOOBDUTIE map with entry list 
PROC^®0RE BUIITIN" where arrays are 
allowed. 
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T'he variables, corresponding to ma^or types 1 to 8 are further 
divided into minor types. The list of minor types is as follows: 


Minor Type 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 


Description 

Integer 

floating point 
Complex 

Not applicable (integer numeric 
picture) 

Dot applicable (floating point 
numeric picture) 

Bit string- fixed length 

Bit string - varying length 
Character string - fixed length 
Character string - varying length 
Dot applicable (non numeric picture) 
label without label list 
label with label list 


4*-3: Symbol Table Representation of Various Manor Types : 

Before describing about individual magor types, it would be 
appropriate to look at the typical symbol table cell shown on the 
next page. 

Domenclature : 

ISTCIC: Address of the last cell in stack Index table offset. 

IDDXOf: Index table offset. 

Address of the last cell in stack with same siname 


ISTSDM: 
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S I^iSOL TABLE CELL 

Notes Items -with asteri^ are stored in. 2*s complement 
notation. 
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HXTSTR: 

LSRSNM: 

MXSTLY: 

COYER; 

HDIMEN: 

MJRTYP; 
BIiKRO; 
STRRO ; 
STRLYl; 

mrrtyp ; 

address/: 
serial no 


assclad ; 

intlstad; 

njp: 

dono. : 
Elags ; 
ff1: 


Address of the cell next in structure. 

Address of the last cell in stack with same name in 
the structure . 

Address of the cell representing next sister node. 
Address of the covering item cell. 

Numher of dimensions for variables or number of 

parameters for an entry name, zero if not applicable* 

Major type 

Block number 

Structure number 

Structure level 

Minor type (for entry constants it stores the minor 
type of result returned). 

Address of first order storage for variables. 

Address of PH¥ for entry constants, label serial 
number for label constants. Bile serial number for 
file constant. 

Associated cell address for built in procedures, 
and procedures with entry list. 

Initial list address for structure elements 
Precision infoimiation for arithmetic variables. 

Primary and secondary types of file for a file constant 
10 nimiber for a label constant. 

Pormal flag -1, 'f if explicit declaration in DECLARE 
statement occurs,’ O otherwise. 
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ff2: Formal flag-2, i’ for formal parameter 

fstchr: first character flag, 'l' if initial character of the 

name is I-IT, 'O' otherwise, 
multdf: mnltiple definition flag, 

set to 'l' if a declaration at level 0 or 1 already 
exists in ahlock and another declaration is tried 
in the same hlock having same name, 
likeflag: ’l' if this structure is expanded hy IIKI attribute 

Intlflag: Initial flag, 

'l' if this variable has been initialised by IITITIAl 

attribute in DECIARE statement, 
s-element: Structur-e element flag, 

'i if it is a base element of a structure 
bin flag: Binary flag, 

Y if the arithmetic variable is given a base of 

lote: Fields and flags which are irrelevant to a major type, 
contain zeros. 

Symbol table representation of variables, file constants and 
label constants has nothing extra than what is shown in the symbol 
table cell. 

Symbol table representation of entry constants having ent2^ 
list and generic-procedure woul-d be described below because they 
involve additional cells. Format for a builtin procedure is 
described in Appendix H. 
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Symbol table representation of entry constants having entry list : 

For an entry constant having entry list, there are two cells- 
main and associated, in the symbol table. The main cell is as usiial 
and points to the associated cell (assclad). The associated cell 
is used to store the type information of various arguments. 

Format of associated cell: 



iJlG -1 

.mG -2 

iiRG -3 

, 

iRG -4 

ARG -5 

ARG -6 

ARG -7 

1 RG ~8 

ARG -9 

AR.G -10 

ARG-I 1 

iRG -12 

ARG -13 

t.. , 

alRG -14 

lilG -15 

i 


where NARG- is number of argimients in the entry list. For the 
n-th parameter, ilRG-n field consists of 

j pmy-type j_ sndy-type 


where "pmy-type” is one of the following: 


0 : 

i,(i=^1-5): 

6 : 

7 : 

8 


Parameter descriptor 
Star/Null 

i-dimensional array 
Structure 


9 


Scalar 

Entry- 

File 
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" sndy-type " is one of the 12 minor types described earlier. Por 
an n-argnment entry list, remaining 15-n (n <.15) AEG— fields 
would contain zero. 

Because of the lim-itation put by the size of the cell, more 
than 15 parameters can not be specified in an entry list. 

Symbol table representation for G-EIIER I C fami ly* 



/ 




Mem ber-m 


■\ss Delated 
Cell 


(The hatched portion shows the usual pointers). 

Each member of the family?' is represented exactly like an 
entry constant with entry list. Plowever, a chain is formed start 
ing from the GEIfflRIC cell which links all the members. LSRSffl/I is 
used to store this pointer. She chain is terminated by ^0’ in 
neat member address. 
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A program organised to explain the concepts of scope of 
declaration, extension of scope and use of BUIITIH attribute: 


EXT1: PROCEDORE OPTIONS (laAIN) ; 

L1: DBGliiKE ((A,B) EXTERNAL, C,SQRT(10)) PIXEL (6,3), 

S1: GET LIST (A,B, SQRT) ; 

L2: CALL INT1 ; 

L3; B=EXT2(SQET(A)),” 

L4: CALL INTS; 

S2 : Statement 
INT1: PROCEDURE; 

L5: declare (B,C(10)) EIXED (6,3), D STATIC; 

S3: C = B+D+2*SQRT+E; 

END INTI; 
niT2: PROCEDURE; 

L6: DECLARE C EIXED (6,3), A ELO AT (8) , SQRT BUILT IN 
S4: C=B+0.7*SQET(C) ; 

END INT2; 

S5: Statement 
END EXT1; 

EXT2: PROCEDURE (X) RECURSIVE; 

L7: DECLARE U,B) EIXED (6,3) EXTERNAL., 

'C FLOAT (4) INITIAL (o) , X EIXED (5,0); 

S6: IE X-2* X/2=0 THEN GALL INT3; 

S7: GET LIST (B) ; . 

INT3; PROCEDURE; 

L8: DECLARE (A) FLOAT (4); 

S8: C = B+A 
END INT3; 

S9: IE X=1 THEN RETURN (l.)? 

ELSE RETURN (C+X*EX:T2 (X-1)) ; 

END EXT 2 1 

.Note: *’ Statement." refers to a PL-7044 statement. 


A tahle vrould be made to show the attributes and scopes 


of various variables. 
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Statement 

label 

Name 

Attributes 



Scope 


EXT1I 

EXT1 

EfflRIjEXlERlAl 

Ent ire 

program 


11 

il 

EIXEB jEXlERlAl 

All 

and 

of EXT1 except INT2| 
All of EXT2 except < 

■ ■ i 

L1 

B 

EIXEDjEXTERNAl 

All 

and 

of EXT1 except 
All of EXT 2 

INTll 

11 

C 

‘EIXED,MERNA1 

All 

and 

of EXT1 except 
INT2 

INTI 

11 

SQEl 

EIXEBjMERlAl, 

Array 

All 

Of 

EXT1 except 

INT2 

im'i 

Ml 

ENTRY, MERl^IAl 

All 

of 

EXT1 


15 

B 

EIXEl, INTERNAl 

All 

of 

INTI 


15 

C 

EIXED,MER1A1, 

Array 

All 

of 

INTI 


S3 

E 

lefault 

All 

of 

E£T1 


IHT2 

M2 

E1TRY,MER1A1 

All 

of 

EXT1 


16 

C 

EIXEB, MERlAl 

All 

of 

INT2 


16 

A 

E10AT,I1TERM1 

All 

of 

INT2 


17 

SQRl 

BUIIT'II 

All 

of 

INT2 


EXT2 

EX12 

E1TRY,EXTERM1 

Entire 

program 


17 

il j B 

EIXED,EXTERNA1 

Same A 
in 11 

and B as declared 

17 

G 

EIOiiT,MBRlAl 

i 

All 

of 

EXT2 


17 

X 

FIXED, INTmiAl 
(parameter) 

All 

of 

EXT2 


1113 

M3 

ENTRY, MERlAl 

All 

of 

EXT 2 


18 

A 

. ElOxlT, INTERNAl 

All 

of 

INT3 
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Examination of this program will reveal the following facts: 

i) There are three separate locations identified by same name , 
A, The first of these is allocated by the declaration in 
statement 11 as a fixed point decimal nimiber with the 
EXTERITAL attribute. As such it is also given the STATIC 
attribute by default. The' second location name 'A', declared 
at 16, refers to a 8 digit floating point decimal number 
known to only procedure IET2. 

The third is a floating point decimal number with the 
internal attribute, declared at 18, which remains allocated 
d-uring the invocation of procedure INT5. 

The A declared in 17 is the same as A declared in 11. 

ii) There are two different locations with name B. The first 

is declared in statement 11, whereas the second is declared 
in statement 15 and is known only to procedure IKT1, 

Though both the B*s are fixed point decimal numbers with 
same precision, the fact that second B is declared, ex- 

m 

plicitly, in an internal procedure results in a separate 
allocation and release upon termination of that procedure. 

iii) The program assigns four different locations using the name 
C, one of them being the header of an array. 

iv) The name SQRT is having two different meanings in this pro- 
gram. SQRT is declared in H as a one dimensional array of 
floating point decimal numbers with single precision. It’s 
use in statement 13 is as a floating point variable. 



In statement S3 it is “being used in an aggregate expression 
The use of SQRI in statement S4 is as a built in procedure 
and it represents a call to the builtin procedure with name 
SQRI. Ihus use of SQRT in external procedure 11 as an 
array does not bar its use in an internal procedure as a 
builtin name 5 if declared appropriately. 

The procedure EKI2 has been given RECURSIVE attribute and 
it is being called from within itself at statement S9. In 
such cases a rule for teirminating the recursion is also 
to be given, otherwise it will form an infinite loop. 

At each call of EXT2, a value of-B is read in from input 
media but only the value which is existing when a call is 
made to 11113, will be transmitted to IET3. 
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Eirst Order Storage Assignment Eor Various Blocks of a Program ^ 

To illustrate the first order storage assignment for 
•various blocks of a program, program of Appendix E would be 
considered once again. 

S'* Block Predecessor Table : 


BIPDTB 

b.no . 

name 

Run time coding 

(at corspile 
t ime ) 



BIPDTB EQu 

* 

0 

0 

imaginary 

OCT 

0 

0 

1 

EXT1 

OCT 

0 

1 

2 

IBT1 

OCT 

1 , 

1 

3 

INT2 

OCT 


0 

4 

EXT 2 

OCT 

0 

4 

5 

IMD5 

o 

o 

4 

Block Storage 

Table : 


ST&TAB EQU 

* - 


Q 

imaginary 

PEE 

BE. 00,, BS. 00 


1 

EXT1 

PZE 

BE. 01 , jBS.GT 


2 

I1T1 

PEE 

BE, 02,, BS. 02 


3 

IET2 

PEE 

BE.03, ,BS.03 


4 

EXT2 

PZE 

BE. 04,, BS. 04 


5 

IIS?3 

PZE 

BE.05,,BS.05 



j^'bels G-enerat ^fi » 


IP- 33 


^S.OO SQU bs.oo+7^sea(oo) 
TS.OO EQU AS.00+;4^PPV0(00) 
B-'Jj .00 EQU T S . 00 ( 00 ) 

BS.01 EQU BE. 00 
AS. 01 EQU BS.01+7^SEA(01) 
IS. 01 EQU AS, 01 45^DPVC(01 ) 
PE. 01 EQU TS.01+^TA(01) 

PS. 02 EQU BE. 01 
AS. 02 EQU BS.02+7^SEA(02) 
IS. 02 EQU AS.02+;«^I)PYC(02) 
PE. 02 EQU TS.02+7^A(02) 

PS. 03 EQU BE. 01 
AS. 03 EQU BS.03+^SEA(03) 
IS. 03 EQU AS.03+/7^PPVC(03) 
PE, 03 EQU TS.03+i4^AC03) 

PS. 04 EQU BE. 00 

AS. 04 EQU BS.0.4+;^SEA(04) 

IS. 04 EQU AS.04+^DPVC(04) 
BE. 04 EQU IS. 04+/^IA(04) 

PS. 05 EQU BE. 04 
AS.05 EQU BS.05+/^SEA(05) 
J.S.05 EQU AS. 05+^i^i^EYC(05) 
PE. 05 EQU TS.05+^A(05) 

PS. 00 EQU * 

BSS IIKES^ 
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where , 

MXFSAR ' represents maximum first order storage area 
required 

SEAChn) represents the scalar elem.ents area for block 'hn’ 
DP7C(hn) represents the dope rector area for block 'bn* 
!rA(bn) represents the temporary area for block 'bn* 

Some interesting conclusions can be drawn from the above 
exercise. 

1) Starting addresses of blocks 2 (IIJll) and 3(1^12) and 

blocks 1(EXT1) and 4(EX!r2) are same. This shows that they share 
the same first order storage area. This is because of paralle- 
lism in their definition'. In fact any two blocks having same 
predecessor would share the same first order area, 
ii) Storage assigned to block *0’ (imaginary) corresponds td 
the STATIC variables. 

d. Segments of First Order Storage for a Block s 
BS.bn 

AS, bn 

TS.bn 

BE. bn 
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e. Scbematic diagram of I order storage assignment for the 
program considered : 
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G-1 Attributes of Piles: 


The follov/ing shoy;s the attributes that may be assigned 


to a file as part of a DECLARE statement. 


options 


Default 


IITPUT , OUTPUT , UPDATE , PRIUT 
STEE^xM, RECORD 
BUPEERED , UUBUEPERED 
SEQUENTIAL 


INPUT 

STREAM 

BUPEERED 


The file-attributes set is completed as follows: 


If Declaration Specifies 

UPDATE 

SEQUENTIAL 

PRIFT 

BUEPERED or UNBUPPERED 


PL /7044 will also Assi gn 

RECORD 

RECORD 

' OUTPUT, STREM 
RECORD, SEQUENTIAL 


G-2 Default Attributes » 

Storage and scope: 

All level one variables: AUTOIvilTIC is the default for 
INTERNAL level-one variables; STATIC is the default for EXTERNAL 
level-one variables. If neither the storage class nor the scope 
is specified, AurOMiiTIC and INTERNAL are assumed. 
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Arithmetic (^ta: If no attribute is specified for a 
variable, default attributes are assigned depending upon the 
first character (or the only character) of the variables. Integer 
(27 bits) is taken if the first character happens to be I-li. 
floating point of single precision is assumed for all the 
remaining. 

String data: If no length specification is specified for 
a string variable , it is taken as 1 . 
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Built in Procedures and Pseudo YariaTples * 

Because of the generic nature of all the three types of 
built-in routines (simple built-in, array ^handling built-in and 
oseudo variable) of Pl/I, symbol table associates an extra six 
svord cell with the attribute cell of builtin name , for holding the 
iescription of the generic family members. Sejlection among these 

generic members is performed depending on the type of the first 
parameter of the built-in routine reference. She second, the third, 
the fourth, the fifth and the sixth v/ord of the associated cell 
3 old the description of generic member for integer, floating point, 
oomplex, bit string and character string type of first parameter. 
Figure iPNG--1 illustrates this organ i sat ioja. 

Coding of the type specification (i.e. of t^,tg,t^ and t^) 
Cor generic family members varies among the three types of built-in 
coutines, Por each type of the built-in routine, the coding of 
br>'fcg a^id t^ is described below. 

a,) Coding of t^, t^, t, and t~ for built-in routine: 

t^=1 when the returned result is of integer type. 

=2 when the returned result is of floating point type. 

=5 when the returned result is of complex type.' 

=4 when the returned result is of bit string (always non- 

varying) type. 

=5 when the returned result is of character string 
(alira,ys non- vary ing ) i^ype. 




for integer first parameter 

for floating pt. Ist.param. 

for complex 1st. parameter 

for "bit string 1st param. 

for character string 
1st parameter 


where , 

n^ = numher of parameters associated with this huilt-in 
routine. 

t^ = type of the result returned hy a memher of the generic 
family. 

= Identification number of the entry point for a Etmember 
of the generic family. 

to = type in which second parameter is expected. 

o 

t^ = type in which the third parameter is expected. 

t£ = t3rpe in which the fourth parameter is expected 

ITote: Uo built-in routines can Imve .more than four parameters. . 

But in case there are more than four parameters supplied 
in any built-in routine call, all parameters from fifth 
onw'ards will be converted, in accordance with the 
specification for the 


AP-40 


= 0 wben any type of arg-ument is allowed in that 
parameter position. 

= 1 when only integer argiament is allowed in that 
parameter position. 

= 2 when only floating point argimient is allowed in 
that parameter position. 

= 3 when only complex argument can he passed on as 
parameter. 

= 4 when only hit string (any of varying or non- varying 
type) can he passed on as parameter. 

=5 when only character string (any of varying or 

non-varying type) can he passed on as parameter. 

= 6 when only literal integer can appear in that para- 
meter position. 

= 7 Either of hit string or character string type of 
argument can he passed on as parameter. For any 
other type of argument conversion to character 
string, is implied. 

h) Coding of t^, t^, t^ and t^ for array handling huilt- in routine; 

Coding of t^ for array handling huilt-in routines is iden- 
tical to that for huilt in routines of case® (a), 
tg, t^, tj = 0 when any type of argument is allowed in that 

parameter position. 

= 1,2, 3, 4, 5 for legal appearance of only . scalar 

integer, floating point,, comp lex, hit string and 
character string argume^lts in the parameter position. 
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= 6, 7 » 8, 9, 10 for legal appearance of only integer, 

floating point, complex, bit string and character 
string arrays in that parameter position. 

c) Organisation of attribute cell for a pseudo -variable and. 

coding of ■tpjtgjt.j. and t^ for pseudp variable generic family 
members: 

Since there exists, alv/ays, a built-in function having the 
same name as pseudo variable, the attribute cell for any pseudo 
variable name coirtains a pointer to the attribute cell of the 
built-in fimction of same name. Buffer handler chooses (depending 
on the context) the correct alternative and for built-in function 
of the same name it follows that pointer to get the corresponding 
attribute cell address. Organisation of the symbol table entry, 
corresponding to a pseudo variable name is illustrated in 
Big. APNO-2. 



Six word cell of the 
built-in function. 





AP-42 


Coding of t^s "^f "btiilt in function alter- 

native is identical to that for any other .built, in function 
(case a), lor pseudo variable alternative, 

t^ = 1 for pseudo variable ' req_uiring complex result 

of the right hand side of '=' expression. 

= 2 for pseudo variable req_uiring bit string (varying 

or non- varying) re suit of right hand side of '=* 
expression 

= 3 for pseudo variable requiring character string 

(varying or non-varying)result of right hand 
side of expression. 

t^jifstf = 0 when every operand is allowed in that parameter 

position. 

= 1 , 2,35455 when integer, floating point, complex, bit 

string (varying or non-varying) and character 
string (varying or non-varying) variable (and not 
expression) is allovred in that parameter position. 

= 6,7,8,9,10 when integer, floating point, complex, 

bit string (varying or non-varying) and character 
string (varying or non-varying) operand (either 
variable or expression) is allowed in that 
parameter position. 
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Statements, Attriputes and Restrictions over PL/l: 

1-1 Statements : 

Poliowing are the alphabet ic lists of statements allowed 
and statements not allowed in PI 7044. 


Alio TO 

NOT ALLOWED 

BEGDI 

ALLOCATE 

CALI 

DEPAULT 

CLOSE 

DELAY 

DECLAEE 

DELETE 

jjISPMY 

PETCH 

DO 

Plow 

ELSE 

PREE 

END 

LOCATE 

ENTRY 

NOPLOW 

EXIT 

ON 

P0R1.UT 

RELEASE 

GET 

REYERT 

GOTO 

REWRITE 

GO TO 

SIGNAL 

HALT 

UNLOCK 

IP 

WAIT' 

OPEN 


PROCEDURE 


PUT 


READ 


return 


STOP 


WRITE 
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1-2 : Attributes : 


Attributes have been divided in four major classes. Each 
class is further sub-divided in various minor classes. 

1 • Storage and Scope 

A. Storage 

B. Scope 

2 . Data 


A. Arithmetic 

B. String 

C. label 

D. Entry 

E. Eile 

E . Task and program control 
Miscellaneous 


4. Ho-action 

The digits and the letters (if any) appended to attributes 
in the following alphabetic lists of attributes allowed and attri- 
butes not allowedj refer to the major class and minor class 
re spectively . 


ALIOIBD 
ABN0H.IA1 (4) 
ADIGI3ED (4) 
AUTOMATIC (1-A) 
binary (2-A) 
BIT (2-B) 


NOT ALLOWED 
area (2-E) 

BACKWARDS (2-B) 
BASED (1_A) 

CEIL (1 -A) 
GONTROLLED (1-A) 
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BUPPERED (2-E) 
BUIIfflE (2-B) 
CHARACTER (2-B) 
COMPLEX (2-A) 
LECUjIAL (2-A) 
LBIEHSION (3) 
ERTRY (2-D) 
EXPERRAL (1-B) 
PILE (2-E) 

PIXEL (2-A) 

PIOAT (2-A) 
GERBRIC (2-D) 
INITIAL (3) 

INPUT (2-E) 
INTERJJAL (1-B) 
IRRELUGIBEE (2-L) 
LABEL- (2-C) 

Length (2-B) 

LIKE (3) 

I/IAP (2-P) 
NOR2iiAL(4) 

OUTPUT (2-E) 
Precision (2-A) 
PRINT (2-E) 

REAL (2-A) 


DEPINEL (3) 
LIRECT (2-E) 
ENVIRONilENT (2-E) 
EVENT (2-P) 
EXCLUSIVE: (2-E) 
ICEYED (2-E) 

OPPSET (2-P) 
POINTER (2-P) 
PICTURE (2-B) 
PACKED (4) 
POSITION (3) 

TASK (2-P) 
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RECORD (2-E) 

Record-size (2-E) 

REDUCIBIE (2-D) 

RETURNS (2-D) 

SEGOKDIRY (l-A) 

SEQUENTLUi (2-E) 

SETS (2-D) 

STATIC (1-A) 

STREi'O/I (2-E) 
miBUPEERED (2-E) 

UPDATE (2-E) 

USES (2-D) 

YARYIIG (2-B) 

1,31 Restrictions : 

a) Logical Restrictions ; 

1. Arrays of str-uctures are not allowed. 

2. Minor/ma jor structiire name should not he used in a GET/PUT 
DATA statement. 

3 . Aggregate expression can not he used as an argument in a 
procedure reference. 

4 . Recursive function reference should not he made from 


inside dimension attribute, length attribute, Iteration factor 
or format, statement. 
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5. All DEOLARE statements for a block sbould be placed 
immediately after the header statement (PROGBDURE/BEGIH') . 

All specifications for parameters of a secondary entry point 

■ I 

should be put immediately after the EEIRY statement. Ro declara-i 

' ' ' I 

tion can be made after an EiJIRY statement. 

6 . DO loops can not be used within a GEl/PUT DATA statement. 

7 . Character/Bit strings can not be used within a list or 
edit or data directed I/O command. 

8 . A data list must always be specified with a GEl DATA 
command. 

9 . ihen a file name is to be transmitted as an argument in 

a procedure reference, it must either be opened by a OPER statemej 
or must be used in I/O command lexicographically before its 
occurrence as argument. 

|0. A procedure block can not be defined inside a DO group. 
Storage Restrictions : 

1. A statement can be punched any where between column 1 to 
column 72 (both inclusive)on a 80-column card. last eight columns 
may be used for identification. 

2. Maximum length of identifiers and character string constant 
is 30 characters. 

3 . Maximima length of a bit string constant is 36 bits. 

• on ' 

4 . largest absolute value of an integer is 2-1 (163708927) 
(27 bits). 
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5. floating point constant should satisfy the relationship 

10”^® i. |fP* constant |< 10^®. 

'6, More than 62 hlocks can not he used in the program. 

7. More than 63 DO-groups (excluding those used in I/O 

statements) can not he used. 

8. More than 63 structures can not he used. 

9. More than 4095 II’ statements can not he used. 

10. More than 8 labels can not he prefixed to a statement. 

11. More than five dimensions in an array c^n not he used. 

12. More than fifteen parameters can not he usi^d while 

defining a PROCEDURE. 

13. More than five structures can not take part in ^n aggregate 
expression, Eurther none of the .structures taking part iP: the 
aggregate expression should have more than 25 hase elements. 
Structures taking part in a structure expression with BY MME 
option specified, should not have more than 10 items at level 

lifl under an item at level 1. 

14. Sfeximum number of files corresponds to number of utility 
units available in the installation, 

19 , A statement can he 500 output-units long at the most. 

The table for lexical-units and number of output-units is as 


follows: 
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Lexical-unit ]fo« of Output Units 

Operators 1 . 

Integers floating point constant,' 
identifier and key words 2 

Complex and bit string constants 3 

Cbaracter string constants i‘^/6] + 2 


where, n is the length of character string constant* 
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J-1 Program Listing : 

Program listing is generated during the first edition. 
Besides the card-image, it also carries three identification 
mmhers viz. statement nmnher, card numher and the Block number. 

Statement number is used in second edition to refer to 
the corresponding statement if an error is detected in compilation.j 

Block number indicates the pairing of the 'EMD' and the 
block header statements (PROCEBURE/BEGIB) , 

The first pass processor prints the type of the EKD (as to 
whether closing a DQ-group, BEGIB-block or PROCEDBEE-block) also. 

In case of multiple closure besides one such message for each 
group/block closed, it also prints the message *MIILTIPIE CBOSURE 
ERCOimTERED ' . 

The information about generation of a dummy ELSE is also 
conveyed to the programmer- The message to this effect appears 
misplaced on the listing. It should actually appear before the 
statement detecting the missing ELSE, whereas it appears after that 
statement. It could have been taken care of but at the cost of 
increased complexity , which is not warianted if one is' familiar 
to this convention. , , , 

The above three facilities help the programmer to keep 
track of his logic. This is especially helpful in cases like 


shuffling of cards etc 
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At the successful completion of an edition, a message is 
printed to this effect which shows the progress made by the 
compiler. 

Errors and the Action Taken : 

Complete error message is not printed for the compile 
time errors^ A 6 character mnemonic (3 alphabetic letters followed 
by 2 digits, 'XXX-nn') uniquely represents an 'error*. However fo3 
errors detected at rim time, complete error message is printed. 

All the errors detected in the first edition appear 
inter leaved in the program listing.. An error detected during 
the scanning of a statement appears immediately after the card- 
image of the card on which the error has been detected. However, 
if the error is detected after the scanning phase is over, the 
error code follows the card-image on which^ the statement ends. 

At the end of an edition, if it is found that an error has 
been detected in this edition, all fiirther editions are deleted and 
and the job is terminated. When ah error is detected in a state- 
ment, it is immediately skipped and no further analysis is done 
for that statement. 

The error messages of the second pass carry the statement 
number of the statement in error so that proper referencing can 
be done, since they appear after the program listing. 
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Eormat of the Pile Statms blocks associated with each stream file 

All file status blocks are 8 words in size, 

(a) Ihen file is an input stream file, 



where , 

EECNO: Record Number = hos. of records processed from this 
file. 

CHRPIR: Character pointer - gives the number of character 
still to be processed in the word pointed to by 
G1TCH1. 

IRDPIR: No. of words still to be processed in the current 
data record. 

GEP0H2: -ve if a new record is to be read. 

+ve if a new record is not to be read. 

-ve for system input file +ve for others. 


SIGN: 
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GETCH1 

PIXI 


PPX2 


= Address of the word in the ciirrent record being 
processed. 

= PZE for stream print files 

= POK for stream input 

= MZE for record input 

= MON for record output 

= PZE if file has not been used 
= MZE if file has been used 



where , 


Addr1 = 

Addr2 = 


link address of the next file status block 

0 if this is the last link 

0 if it is not the last link 

address of file control block of the file 

corresponding to this file status block. 

number of lines or records written in this file. 


iirao = 
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BU22.. = 

CHRJPTR = 

mDPTR = 

PRX1 and 


pending word in this file. 

nnmher of character available in the pending 
word. 

address of word in buffer in complemented from 
where the next output word is to be placed,. 
P5'X2 have same meanings as in (a). 
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L-l J Buffer baadler output for an Assignment Statement : 

TTae coding of the a-ssignment statement A(l5*,J,*) ,C= 
I+S4J+T +01+1+2. 0+G2+2+2I+A(*,X1 ,*,K2)+A(l5*,J ,*)+(B*,K1 ,*)+C(*,*) + 
D(1,2); where I, J, B, £1 and K2 have been declared as integer, 

B, S and T have been declared as floating point and A, 01 and 02 
have been declared to be complex, by buffer handler is given below; 


Notation; 


catpcin the buffer hardier output stands for the comple- 


mented address of the attribute cell of the Identifier X. 


Buffer handler Comment 

output in Octal 


0 cat pa O’ 00032 
0 catpi 0 00001 


4 00004 0 00044 
0 catpg 0 00001 
4 00004 0 00044 
4 00004 0 00053 

0 00000 0 00002 
0 20400 0 00002 
4 00004 0 00021 

0 catpc 0 00033 


Operand type of 32 q denotes the following of 
array subscripts for address calculation. 
Operand type of 1 stands for scalar identifier 
for which normal (and not indirect) address 
calculation is to be done. 

Operator separating array subscripts. 


Operator ’)* denoting ena of army subscripts 
in an array cross-section reference. 

Number of non subscripts. 

Representative word of array cross section. 
Eirst ’ , * seperating multiple assignment 
arguments. 

Operand type of 530 denotes array without 
any subscript list reference. 
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4 00004 0 00030 Subsequent ' , » seperating multiple assignment 

argments. 

4 00014 0000026 Representation of assignment 
0 00000 0 00002 Number of multiple assignment arg-uments. 

0 catpi 0 00001 

4 00011 0 00006 Binary operator. 

0 catps 0 00002 Operand type of 2 denotes scalar operand for 

which indirect addressing scheme is to be 
adopted. 

4 00011 0 00007 Binary operator. 

0 catpj 0 00001 

4 00011 0 00006 

0 catpt 0 00001 

4 00011 0 00006 

0 catpc.|0 00001 
4 00011 0 00006 

0.00000 0 00003 Operand type of 3 is for literal integer. 

0 00000 0 00001 Value of the literal. 

4 00011 0 00006 

0 00000 0 00004 Operand type of 4 is for floating point 

literal. 

1 00011 0 00006 

0 OOOOO 0 00005 Operand type of 5 is fbr complex literal. 

2 02400 0 00000 Real pa3?t of the literal, 

2 02400 0 00000 Imaginary part of the literal 
4 00011 0 00006 

0 catpa 0 00032 Starting of coding of A(*,e;i ,*,K2) . 

0 catpk.^0 00001 

4 00004 0 00044 
0 catpkgO 00001 
4 00004 0 00044 

4 00004 0 00053 ’ ) * denoting end of subscript list for array 

cross sect ion, reference,. 


0 00000 0 00002 
0 10300 0 00002 
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4 00011 0 00006" 
0 ca-^pb 0 00031 
0 catpkgO 00001 
4 00004 0 00044 
4 00004 0 00053 
Q 00000 0 00001 
0 10300 0 00002 
4 00011 0 00006 
Q oatpd 0 00032 
0 00000' 0 0OQ03 
O'^OOCOO O' 0000^ 
-4 00004 0 00044 
0 00000 0 00003 
0 00000 0 00002 
4 00004 0 00044 
4 00004 0 00051 

4 00001 0 00027 


Starting of ooding of B(*,K2,*) 


Starting of coding for I)(1,2)j 


' ) ’ denoting end of subscript list for array 
element reference. 

Representation of operator demoting endiof-r . ... 
expression. This will be inserted by the calling 
routine before calling expression processor. 


I*-2 ; Expression ■‘Processor Output (Before Sorting) ; 


Eor buffer handler's coding of the assignment statement 
of Appendix-Ll, the unsorted output of ABxpression Processor 
in output buffer and the corresponding entries made in the summary 
record area are shown below; 


Uotationr ; 

(1) Locations of output buffer are addressed symbolically by 
the symbols attached with the locations. Putting a star on top 
of those s3hnbols denote 2's bbiiplement of those location 
addresses, (e.g. Saddl"^ means 2*^s complement of the address of 
location Saddl). 
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(ii) Block number and offset of addressing for an identifier 
2 is represented as bx and offsx respectively. 


Contents of Output Buffer 


Symbolic 

address 


Content of that 
locati o n in o ctal 


Comment 


Sadd1 0 00000 0 00006 Record header for the recursive address 

calculation output record of 

0 00101 0 00113 Opcode 113g is for generating recursive 

address calculation output. OlOOIg in | 
decrement is the label where address of 
array elements will be filled in. I 

0 offsa 0 001ba Address of array header A(in expression 

processor's output form), 

0 20400 0 00002 Gross section representative word of 

A(I,*,J,*). 

0 00000 0 00002 Humber of non subscripts, 

0 off si 0 lOIbi Subscript I 

0 offsj 0 lOlbj Subscript J 


Sadd2 


Sadd3 


Sadd4 


0 00000 0 00004 
0 00102 0 00113 
0 offsc 0 OOlbc 
0 10203 0 40502 
0 00000 0 00000 


Output for recursive address calcula- 
tion of c. 


O 00000 0 00006 
0 00103 0 00113 
0 Offsa 0 OOlba 
0 10300 0 00002 
0 00000 0 00002 
0 offsk^O lOlbk^ 

0 offskgO 10l6k2 


Output for recursive address 
calculation of A(*,i:i ,*,22) . 


0 00000 0 00006 
0 00104 0 00113 
0 offsa 0 OOlba 
0 20400 0 00002 
0 00000 0 00002 
0 offsi 0 lOlbt 
0 offsj 0 lOlbj 


Output for recursive address 
calculation of A(I,*,J,*). 



0 

00000 

0 

00005 . 

0 

00105 

0 

00113 

0 

offsh 

0 

OOlhh 

0 

10300 

0 

00002 

0 

00000 

0 

00001 

0 

offsk, 

t 


lOlhk. 

0 

00000 

0 

00004 

0 

00106 

0 

00113 

0 

off sc 

0 

OOlhc 

0 

10203 

0 

40502 

0 

00000 

0 

00000 

0 

00000 

0 

00005 

0 00107 

Q 

00112 

0 

offsd 

0 

001hd 

0 

00000 

0 

00002 

0 

00014 

0 

10500 

0 

00015 

0 

10500 

0 

00000 

0 

00032 

0 

00001 

0 

00012 


0 

off si 

0 

lOthi 

0 

offsj 

0 

101h;5 

0 

00002 

0 

00012 

0 

00001 

0 

1 1 300 

0 

00011 

0 

10500 

0 

00003 

0 

00012 

0 

00002 

0 

11300 

0 

01007 

0 

10700 

0 

00004 

0 

00071 

0 

00003 

0 

11300 

0 

00005 

0 

00013 

0 

00004 

0 

21300 

0 

OffSS 

0 

201hs 

0 t)00p6 

0 

0QQ1'3 

0 

00005 

0 

2t300 

0 

.Q;^st 

0 

2p2ht 


Output for recursive address 
Qaloulation of B(*,K2,*), 


Output for recursive address 
calculation of 0(*,*), 


Output for address calculation 
ofD(l,2) 

Record header for scalar output. 

12g is opcode for integer addition, 
00001 g is the temporary which will 
contain the result of this operation. 

Negative sign with this operand shows 
it is hared, 

Temporary 1 
Literal 1 


L(1,2) 

71 g is opcode for converting integer 
operand into floating point. 

Opcode for floating point addition. 


Indirect addressing is involved 

with T. 



iP-60 


Saad9 


SaddIO 


0 

00007 

0 

00014 

0 

00006 

0 

21300 

0 

off sc. 

1° 

301hc 

0 

00010 

0 

00015 

0 

00007 

0 

31300 

0 

offsc, 

i 


301hc, 

0 

00011 

0 

00015* 

0 

00010 

0 

31300 

0 

00015 

0 

30500 

0 

00000 

0 

00022 

0 

00012 

0 

00014 

0 

01005 

0 

20700 

0 

00011 

0 

31300 

0 

00013 

0 

00015 

0 

00012 

0 

31300 

0 

01003 

0 

o 

o 

o 

0 

00014 

0 

00015 

0 

00013 

0 

31300 

0 

01004 

0 

O 

Q 

O 

0 

00015 

0 

00015 

0 

00014 

0 

31300 

0 

01006 

0 

30700 

0 

00000 

0 

00056 

0. 

01002 

0 

30700 

0 

00015 

0 

31300 

0 

00000 

0 

00056 

0 

01001 

0 

30700 

0 

00015 

0 

31300 

0 

00000 

0 

00012 

0 

00010 

0 

00130 


140 is opcode for floating point and 
complex addition. 


150 is opcode for complex addition. 


literal 2+21 

Record header for repetitive output. 
B(*,K2,*) 


A(*,K1,*,K2) 


1 ( 1 , 

OC*,*) 

560 is opcode for two word complex 
assignment. 

C 


1 ( 1 , 

130g opcode for hound checking of 
arrays. 000 lOg denotes serial no, 
of the recursive address calculation 
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0 

00000 

0 

00010 


0 

off sa 

0 

001 ha 


0 

20400 

0 

00002 


0 

off sc 

0 

OOlhc 


0 

10203 

0 

40502 


0 

off sa 

0 

001 ha 


0 

10300 

0 

00002 


0 

offsh 

0 

OOlhh 


0 

-..ja* 

O 

O 

O 

0 

00002 

Sadd11 

0 

OQOOQ 

0 

00001 


0 

00000 

0 

00132 

Saddl2 

0 

00000 

0 

00003 


0 

00010 

0 

00133 


0 

OOQOO 

0 

00134 


Ntunber of words associated with 
this operator. 


152g is opcode denoting startini 
of repetitive codes* 

1330 is opcode for closing of the 
repetitive loops. 

Opcode 1340 denotes the end of 
expression paxicessor output. 


Entries- in ^mMafv Re do Med 'if ea 
Content of. suimi^ry 

record area in octal " ' ' '* “Oomments 




0 00002 0 OOOOG 

0 00003 0 Sadd9* 
0 00004 0 00000 

0 00011 0 SaddS* 
0 00006 0 Sadd1* 


Constant entry for collecting all outputs 
for pseudo variable calls.' Zero in the 
address field denotes existance of no such 
output. 

Constant entry for collecting all repetitive 
output. 

Constant entry for collecting all iSTJB 
defined array repetitive address calcula- 
tion "output. 

Constant entry for collecting all scalar 
output. 

Entry for recursive address calculation of 
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0 00006 0 
0 00006 0 
0 00006 0 
0 00006 0 
0 00006 0 
0 00012 0 
0 00010 0 
0 00005 0 


Sadd2 

Sadd3* 

Sadd4 

Sadd5’^ 

Sadd6* 

Sadd7* 

Saddio' 

Caddll' 


0 00001 0 Sadd12 


For 0. 

For A(*,K1,*,K2). 

For J,*) . 

For B(*,K2,*). 

For G(*,*) . 

For D(l,2) address calculation. 

For array bound check orders. 

For output denoting the starting of 
repetitive codes. 

For output denoting the closing of the 
repetitive loops. 


Expression Processor Output (After Soirting) : 

On sorting of expression processor's output (as shovm in 
Appendix 1-2) by the sorting routine, Final output, as TOitten 
in output file, is given below: 


Final sorted output 
in Octal 

7 77777 7 77777 

0 00000 0 00031 


0 01007 0 
0 offsd 0 
0 00000 0 
0 00014 0 
0 00015 0 

0 00001 0 
0 off si 0 
4 offsj 0 
0 00002 0 
C 00001 0 
0 00011 0 
0 00003 c 
0 00002 0 
0 01007 0 
0 00004 0 
0 00003 0 
0 00005 0 
0 00004 0 


00112 
OOlbd 
00002 
105C? 
1 0500 

00012 
101bi 
lOlbj 
00012 
11300 
10500 
00012 
11300 
10700 
00071 
11300 
00013 
2 1300 


Comment 


These two words signify the necessity of 
calling expression processor's code generat- 
ing routine in third pass. 


Output for I)(1,2). 


Scalar output 
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0 offst 0 2C2'bt 
0 00037 0 00014 
0 00006 0 21300 
C offsc-jO 30lbc^ 

0 00001 0 00015 
0 00007 0 31300 
C offscgC 301bc2 

0 00011 0 00C15 
0 000 1G 0 31300 
0 00013 0 30500 

0 00010 0 001 30 ' 
0 00000 0 00010 
0 offsa 0 OOlba 
0 20400 0 00002 
0 offsc 0 OOlbc 
0 10203 0 40502 
0 offsa 0 OOlba 
0 10300 0 00002 
0 offsb 0 OOlbb 
0 10300 0 00002 

0 00101 0 00113 
0 offsa 0 OOlba 
0 20400 0 00002 
0 00000 0 00002 
0 offsi 0 lOIbi 
0 offS3 0 lOlbj 

0 00102 0 00113 
0 offsc 0 OOlbc 
0 10203 0 40502 
0 00000 0 00000 

0 00103 0 00113 
0 offsa 0 OOlba 
0 10300 0 00002 
0 00000 0 00002 
0 offsk^O I01bk^ 

0 offskgO lOIbkg 

0 00104 0 00113 
0 offsa 0 OOlba 
0 20400 0 00002 
0 00000 0 00002 
0 offsi 0 lOIbi 
0 offsj 0 I0lbj 

0 00105 0 00113 
0 offsb 0 OOlba 
0 10300 0 00002 
0 00000 0 00001 
0 offsk20 lOIbkg 


Scalar output 


All output for the bound checking of the 
arrays. 


Output; for recursive address calculation 
of A . 

Output for recursive address calculation 
of 0. 


Output for recursive address calculation 
of .i(*,K1 ,*,K2)-. 


Output for recursive address calculation 
of A(I,*,J,*). 


Output for recursive address calculation of 
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0 00106 0 00113 
0 offsc 0 OOlbc 
0 10203 0 40502 
0 00000 0 00000 

0 00000 0*00132 


address oaloulation 


ooS? starting of repetitive 


.0 00012 
0 01005 
0 00011 
0 00013 
0 00012 
0 01003 
0 00014 
0 00013 
0 01004 
0 00015 
0 00014 
0 01006 
0 00000 
0 01001 
0 00015 
0 00000 
0 00000 
0 00000 


0 00014 
0 20700 
0 31300 
0 00015 
0 31300 
0 30700 
0 00015 
0 31300 
0 30700 
0 00015 
0 31300 
0 30700 
0 00056 
0 30700 
0 31300 
0 00133 
0 00002 
0 00134 


Output denoting end of repetitive codes 
taDer of repetitive loop! trS^Be? * 
n of expression processor's output. 


^4: CODE &EIiERAT-F:|) 

For the final sorted expression processor's output (as 
shown in Appendix L-3), the third pass expression processor's 
code generating routine produces the following assembly Ian- 
guage (M4P) card images. 

generated Card 

Gommf^nt 


^0011 EQU =000000000001 

1OOOI2 EQU =020240000000 mv 

100013 GOT =202400000000 card images will 

100014 EQU =000000000001’ produced Uy second 

100015 EQU =000000000002 Pass expression processor 

produced, similarly, by expression 
programme f?liow!®“® statements in the 



USE JUEK 




L01001 PEE LC0014 
P2E LOG0 15 

USB, COPE 

TSX /XPCiP:,„4 
-USE J.C1C01'' 
PZE bd+o.ffs6. 
SPA 1.00107 

GIiA bi+offsi 

SUB bo-i-offaj 

iED 1(0001 1 


100107 ADI 


OEA 

PAD 

=025300000000 

=023300000000 

PAD* 

hs+off ss 

PAD 

ht+off st 

PAD 

100012 

PAD 

■bc.,+offsc.j 

Pemp+0 

SPO 

Ola 

he. +offsc^+1 

£P0 

Pemp+'i 

Oil. 

PAD 

SPO 

CnA 

PAD 

SPO 

Perp+0 
hc2-.-off SC2 
Pemp+0 

Pemp-^l 

hc2 H3ff SC2+1 
Pemp+1 

Cl'i 

PAD 

SPO 

CJtl 

P.4D 

SPO 

Pemp->0 

100013 

Pemp+0 

Pemp+1 

1005134-1 

Pemp+1 


Starting of codes for this particular 
assignment statement. 


'.-■odes for address calculation of 

1 ( 1 , 2 ). 


literal 1 is added to the partial 
result of l+j. 

-adding of D(i, 2) to the partial 
result . 


Addition of literal 2.0 to the partial 
result. 

Pemp and lemp+l are the temporary 
locations for holding partial result. 


xiddition of. 02 to the partial result. 


Addition of literal 2+21 with the 
partial result. 
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TSX SIIPLBH,4 Initialise atandarei locations a.or 

PZE ba+offsa holding lower bounds and -iippex 

OCT 020400000002 bounds, with those of the first 

array operand. 

TSX CHXBHI),4 
TEA, L01002 
PZE 3 

PZE bc+offsc 
OCT 010203040502 
PZE ba+offsa 
OCT 010300000002 
PZE bb+offsb 
OCT 010300000002 

L01002 EQU * 

USE JIMX 

L01005 UQU * Subscript list for recursive address 

PZE bi+offsi calculation of 

PZE bj+offsj 

I1OIOO4 I'ZE E00101 list of addresses ^ere starting 

PZE 011010 address and increments will be 

PZE 012010 filled in by RLRCAO routine. 

USE CODE 

TSX I11RCA0,4 Output for calling of recursive 

PZE 101003 address (real) calculation initiali- 

PZE ba+offsa, ,101004 sation routine for A(I,*,J,*). 

OCT 020400000002 

USE jum; 

101005 BQU * 

101006 PZE 100102 
PZE 111010 
PZE 112010 
USE CODE 

TSX I11RCAC,4 Calling of RIROAC routine for 

P^ 101005 initialisation of starting address 

PZE bc+offsc , ,101006 and increments for the recursive 
OCT 010203040502 address calculation of C. 

USE JUIK 

101007 EQU * 

PZE bki+offsk^ 

P2tE bk2+offsk2 


Check other arrays (taking part as 
operands) for having lower and upper 
bounds equal to those of the first 
array operand. 
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101010 PZE 100105 
PZE 211010 
PZE' 212010 
USE CODE 


PSX RiaGAC,4 

PZE 101007 

PZE Da +offsa, ,101010 

OCT 010300000002 


USE jeek: 

L01011 EQU * 

PZE Di+offsi 
PZE bj+offs;j 

101012 PZE 100104 
PZE 311010 
PZE 312010 


USE CODE 

T^ IIDRCAG,4 
PZE L01011 
PZE ba+offsa, ,101012 
OCT 020400000002 

USE JUUK 

101013 EQU * 

P^ 'blC2+offs^2 

101014 EZE 100105 
PZE 411010 
PZE 412010 


USE CODE 

TSX R1RCAC,4 
PZE 101013 
PZE bb+offsb, ,101014 
OCT 010300000002 


USE JOTK 

101015 EQU * 

101016 PZE 100106 

PZE 511010 

PZE 512010 

USE CODE 

TSX RniCAC,4 
PZE 101015 
PZE bo+off sc, ,101016 
OCT 010203040502 


Eor recursive address calculation 
of A(*,K1,*,K2). 


Eor recursive address calcula- 
tion of A(I,*,J,*). 


Eor recursive address calculation 
of B(*,K2,*). 


Eor recursive address 
calculation of 
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TRA 

STG010 

Transfer straight to the starting 
of repetitive codes. 

1L0010 

OLA 

IB1.1 

IB1.1 contains lower hound (first 
copy) for the first ’*' in array 
cross-section reference. 


ADD 

=1 



SCO 

IB.1 



SUB 

UB.1 

UB.1 contains the upper hound for the 
first '*’ in array cross-section. 


TZS 

100010 

Transfer out of this particular loop. 


T<YL 

100101,2 

Get the next element address for 

011010 

BXI 

*+1,2,** 

A(I,*,J,*). 


SXA 

100101,2 


LXil 

100102,2 


111010 

TXI 

*+1,2,** 

Bor C. 


SXA 

100102,2 



IXA 

100103,2 

Bor A(*,K1 ,*,K2). 

211010 

BXI 

*+1,2,** 


SU. 

100103,2 



IiXA 

100104,2 


311010 

TXl 

*+1,2,** 

Bor A(I,*,J,*) 


SIA 

100104,2 



MA 

100105,2 

Bor B(*,K2,*) 

411010 

TXI 

*+1 ,2,** 


SXA 

100105,2 



IXA 

100106,2 

Bor C(*,*) 

511010 

‘TXI 

*+1,2,** 


SXA 

100106,2 



TEA 

STC010 


2li0010 

CLA 

IB1.2 

IB1.2 contains lower hound (first copy) 
of the second '*• position in array 
cross-section reference. 


ADD 

=1 



STO 

IB1.2 



SUB 

UB.2 

UB.2 contains corresponding upper 

hound. 


TZE 

200010 



IXA 

10101,2 

Getting address of the next 

012010 

TXI 

*+1 ,2,** 

element of A(I,*,J,*), 


SXA 

I00101 ,2 
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ISA 

112010 TXI 


SXA 


100102,2 

*+ 1 , 2 ,** 

100102,2 


liXA 

212010 TXI 
SXA 


100103,2 

*+ 1 , 2 ,** 

100103,2 


IXA 

312010 TXI 
SXA 


100104,2 
*+ 1 , 2 ,** 
100104,2 


LXA 

412010 TXI 
SXA 


I00l05j2 

*+ 1 , 2 ,** 

1-00105,2 


LXA 

512010 TXI 
SXA 

ST CO 10 EQU 


100106,2 
*+ 1 , 2 , ** 
100106,2 
* 


100105 CIA 

** 

EAD 

Temp+O 

STO 

Temp+0 

CLA 

Temp+1 

STO 

Temp+1 

CIA 

Temp+O 

100103 EAD 

** 

STO 

Temp+O 

LAC 

L00103,2 

CIA 

Temp+1 

EAD 

1,2 

STO 

Temp+1 

^ CLA 

Temp+O 

LOO 104 EAD 

*+ 

STO 

Temp+O 

LAC 

L00104,2 

CLA 

Temp+1 

EAD 

1,2 , 

STO 

Temp+1 

CIA 

Temp+O 

L00102 STO 

** 

LAC 

L00102,2 

CLA 

Temp+1 

STO 

1,2 

CLA 

Temp+O 

LOO 101 STO 

** 

LAC 

L00101 ,2 

GLA 

Temp+1 

STO 

1,2 


Eor C. 

Eor A(*,E1,*,K2). 

Eor A(I,*,J,*). 

Eor B(*,K2,*). 

Eor C(*,*). 

Starting of repetitive codes* 

e 

Adding of B(*,K2,*) with the partial 
result. 


Adding of A(*,X1,*,K2) with the 
partial result. 


Adding of A(l,#,j,*) with the partial 
result. 


Assigning the result of the 
expression to 0. 


Assigning the result of the expression 
to A(I,*,jj*). 
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TM 

210010 

Eepeit the loop for next array 
in the cross-sections. 

element 

200010 

CIA 

1B2.2 

IiB2.2 contains the second copy 

of 




lower bound for the second ♦*’ 

array cross-section reference. 

in 


SIO 

bEl. 1 




TEA 

IliOOlO 

Repeat the loop for next :tcross- 
section (i.e. for the next subscript 




value of the first 


100010 EQU 

* 



Uote : 

Even tbougb for 

bound checking only one of the two 



references of A(I,*,J,*) was supplied, for recursive 
address calculation tbe two references were treated 
to be different. 
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M- 1 : Coding of an Edit Directed Output Statement with Nested 
* D0' Grouns: 

The statement: 

PUT (EIIE1) SKIP (<exp1>) EDIT ( ( (A,B,<exp2> DO 

2 1 

1=1 TO M m N IHIIE OO), P, < (Q,R,S DO J=N TO I1 BT L2 

1’ 4 3 

TOIDE GDaSH<0) do K=MM TO NK BY KK WiIlE K2<0) ,T, W 
3' 4’ 

DO D(3) = J,K, 1 TO 10 BY 2) ) (<immediate format item>); 

2 ' ■ 

In the above statements the first order storage addresses 
are as given below: 


A 

# • • 

BS. 014000001 

LI 

• • • 

BS.O 140000 12 

B 

'# • ♦ 

BS. 01 400000 2 

L2 

• • » 

BS.O 1+00001 3 

0 

• • • 

BS. 01 4000003 

• CDASH 

BS.O 140000 14 

M 

♦ # ♦ 

BS. 01 4000004 

K 

m • m 

BS.01 400001 5 

1 

'« • • 

BS. 0-1 4000005 

KK 

♦ ♦ ♦ 

BS.014000'016 

P 

* • • 

BS .01 4000006 

T 

» . • 0 

BS.O 1+0000 17 

Q 

'• ♦ • 

BS. 014000007 

W 

• • • 

BS.01+000018 

R 

• • • 

BS.O 1+000008 

m 

• • • 

BS.O 1+0000 19 

S 

• • • 

BS.014000009- 

m 


BS.01 +000020 

I 

• • • 

BS. 01 +000010 

K2, 

■# ■«' 

BS.01 +000021 


J ... BS.01-+000011 
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We ass-ume that B,P,Q and R are formal parameters and the 
remaining an ordinary variables, further ¥ is an array of 
dimension 3. Those variables starting with and ¥ 

are integers while the rest are floating point numbers. 



The Map 

Code 

Comments 



TSX 

PON 

EXTERN 

.10 SUP, 4 

PIE. 00, ,P. 00 
.10 SUP 

Open file and validate file 
operation. 

arithmetic 

exp1 

code for 



L00001 

TSX 

PZE 

EXTERN 

IOHSC.,4 

** 

lOHSC. 

Exe cute SKIP command . 



TR^ 

M00001 : 

ti • for perfomning format 

linkage . 

M00002 

EQU 

TRA 

* 

M00004 

Transfer to coding of 'DO 

'Group 2-2 

M00006 

TEA 

** 

DOMAIN of 'DO' Croup 1-1 ' 

begins. 


AXT 

BS,01 +000001 ,1 




PXA 





TSl 

HNIIO. 

Output variable A, 



EXTERl^ 

HN'IIO. 




CIA 

BS. 04+000002 




TSL 

HNIIO. 

Output variable B. 


arithmetic 
exp 2 

code for 



100002 

AXT 

**,1 




PXA 

,1 




TSl 

HNIIO. 

Output expression. 



TRA 

M00006 

DOMAIN OP 'DO', Group 1-1' 

ends. 

M00005 

TRA 


DOMAIN of 'DO' Group 2-2' 

begins. 


OLA 

=1 

Coding of 'DO' Group 1-1' 

begins. 


STO 

BS.O 1+000010 

^it iallze ' DO ' index . 



OLA 

BS.OH^OOOOi . 
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STO 

CM 

STO 

X00001 CM 
SUB 
TMI 


TS.01+000001 

BS^0 1+000005 

BS.O 1+000002 
TS. 01 +000001 
BS,0 1+0000 10 
Y00001 


Save upper limit in temporary. 

Save increment in temporary 

’BO' index has crossed 


arithmetic; coding for while 
clause. Requires two labels. 
IXXXXX and b xyyyy 


TXXXXX TSL 
CM 
ADD 
SIO 


M00006 

BS. 01+000010 
is.oi+ooobo2 
BS.O 1+000010 


Call to Domain of 'DO' Group 1-i ' 
increment 'DO' index. 


TM 

BXIXXX EQU 
Y00005 EQU 
CM 
TSI 
IM 

M00011 TM 


X00001 

* 

* 

BS.O 1+000006 

MLIO. 

M00007 


CM 

BS. 01 +000007 

TSD 

MHO. 

CM 

BS.O 1+000008 

TSL 

HRIIO. 

AXl 

BS.O 1+000007,1 

PXA 


TSL 

HNLIO. 

TRA 

M00011 

M00010 YEA 

** 

CM 

BS.O 1+000005 

STO 

BS. 01+000011 

CM 

BS. 01+000012 

SIO 

IS. 01 +000001 

CM 

BS. 01 +000013 

SIO 

13,01+000002 


Coding of 'DO' Group 1 - 1 ' ends. 
Output variable P. 

transfer to coding of 'DO' Group 4-4| 
Domain of »D0» Group 3-3' begins. I 

Output variable Q. 

Output variable R. 

Output variable S. 

Domain of 'DO' Group 3-3' ends. 

Domain of 'DO' Group 4-4* begins. 
Coding of 'DO' Group 3-3' begins 
initialize 'DO' index. 


Save upper limit. 







X00002 OliA 

TS»01+QOOQ01 

Check if index has crossed 

SUB 

BS. 01+00011 

the upper limit. 


ml 

Y00002 



arithmetic code for while 
clause. Re quire g the 
labels 



ITTIU aiid l ' YYYYY 



TOTII 5 SI 

M00011 

Gall domain of 'DO’ troup 


OBA 

BS,0 1+000011 



ADD 

TS. 01 +000002 

Increment index. 


STO 

BS.O 1+0000 11 



TR4 

X00002 



I'YYYYY EQU 

* 

t i ■ 


Y00002 EQU 

* 



• TR4 

M00010 ■' 

Coding of 'DO* group 3-^3* 

and 



Domain of 'DO' group 4-4* 

end. 

MQ0OO7 EQU 

# 



oiA 

BS^Ot+000019 




BS, 01 +000015 

Initialize 'DO' index. 


CM"' 

f 'i 

BS.0 1+000020 



STO , 

TS.O 1+000001 

Save upper limit 


CIA 

BS.O 1+00001 6 



STO 

TS. 01+000002 

Save increment . 


X00003 CM 

TS.O 1+000001 

Check if 'DO' index has 




crossed up per limit. 


SUB 

BS.01+000015 



IMI 

Y00003 



arithmetic coding of while 
clause; requires two labels 


IZZZZ^ 

and EZZ^gZ 



TZZZZZ ISL 

M00010 

Call domain of 'DO'^ Group 

4—4 ' * 

CM 

BS.01+000015 



AKD 

TS.OI +000002 

iferemyht' ' index . 


STO . 

BS.01+000015 



TRA_ 

100003 



EZZZZZ EQUi 






100003. EQU 
AXT 
PXA 
TSI 
TSX 
PZE 
ETC 
PZE 

ZOOOO4 AXT 
PXA 
TSE 

2,00005 TXI 
SXA 

^0006 TXE 
TEA 

MOOOO4 EQU 


23.01+000017,1 
> 1 

HNLIO. 

P.MGE ,4 

23,01+00018,, 

ZOOOO 4 

200005 . , Z00006 

**,1 

,1 

HELIO. 

*+ 1 , 1 , *# 

ZOOOO 4 , 1 

200004.1 , ** 

MOOOO 5 
* 
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Codijag of ‘DO' Group 4-4' ends. 

Outpu-fe variable T. 

To calculate the starting addres 
increment and range for array W. 


■%. 

arithmetic coding for 
°^l°y2ating address 
of 1 ( 5 ) 


Bomaln of ‘EO* Group 2«2* ends. 
Coding of 'BO' Group 2-2' begins. 


100003 AXT 

**,1 

SXA 

TS.O 1+000001 

CIA 

2S. 01 +000011 

STO* - 

TS. 01 +000001 

TSI 

MOOOO5 

CIA 

BS. 01+000015 

STO* 

TS.OI+OOOOOI 

TSD 

MOOOOO5 

CM 

=1 

STO* 

TS.OI+OOOOOI 

CM 

= 10 

STO ■ 

TS. 01+000002 

CM 

=2 

STO 

TS.O 1+000003 


I Store address of »E0* index. 

Initialize ’DO ’ index. 

Call Domain of »D0» Group 2-2'. 

Initialize *D0 * index. 

Call Domain of 'DO’ Group 2--2*. 

Initialize 'DO* index. 

Save upper limit. 

Save increment. 





XOQQO? 

CS4 

23,01+000002 


SUB* 

23,01+000001 


2M1 

YOOOO? 


2 SI 

M00005 


CLi* 

2S.0 1+000001 


iSS 

23,01+000003 


STO* 

2 S,D 1+000001 


TEE 

X00007 

X00007 

EQU 

* 


2M 

M00003 

M00001 

2SX 

S2HI0. ,4 


fZE 

M00012 


TEE 

M00002 

WQOIZ 

EQU 

* 


format list 


Check if ihdex has 

crossed the limit!* 

Call domain of ’SO’ Group 2«2’, 

Get out of output statement, 
call format link age routine. 

Go to heginning of Mit Statement 


M00003 

f 


M--2 : Coding of a IX) statement outside an I/O comniand ; 

She statement: 

SO I = 1,2,3, 10 10 20 BY 2, M 20 N BY E 

mim B<0; 

first order address of I is BSvOi+OOOOOl , of M is 

BS. 01+000002, of N is BS. 01+000003, of K is BS,01+000004. 

Set the DO serial number be 2 . 


CLA 

=2 

Update do- serial number. 

STO 

DOSRITO 

Update DO-serial number. 

CIA 

=1 


STO 

BS.O 1+000001 

Initialize 'DO ’ index 

TSS 

000002 

Oali 1^oi|!ain of DO, 



OM 

MO 


SIO 

BS.O 1+000001 

Initialize ’BO’ index* 

CM 

=20 


STO 

TS.O 1+000001 

Save upper limit in temporary. 

CM 

=2 


STO 

TS.O 1+00000 2 

Save increment in temporary 

XOOOOli CM 

TS. 01+000001 

cheok if 'DO' index exceeds the 

SUB 

BS. 01+000001 

upper limit. 

III 

Y00001 


TSIi 

C00002 

Call domain of 'DO' Croup . 

CM 

BS.O 1+000001 

■■ • i ^ 

■.,v. 

£DD 

TS.0 1+000002 

Increment 'DO' index and loop back. 

S50 

BS, 01 +000001 


1BA 

X00001 


Y00001 EQU 

V - 


CM 

BS.O 1+000002 

Initialize 'DO* index. 

STO 

BS. 01 +000001 


CM. 

BS.O 1+000005 . 


STO 

TS. 01 +000001 

Save upper limit in temporary. 

CM 

BS.O 1+000004 


STO 

TS. 01 +000002 

Save increment in temporary. 

X00002 CM 

TS. 01 +000001 

Check if 'DO' index has exceeded 

SUB 

BS.O 1+000001 

limit. 

TMI 

YC0002 


while clause coding, 


requires 

labels 


TXXXXX 

and EXXXXX 


TXXXXX TSl 

000002 


CM 

BS.O 1+000001 

-Increment 'DO* Index^and loop* 

IDD 

TS.O 1+000002 


STO 

BS. 01 +000001 , 


TRi 

X00002 


BXXXXi' EQU 

* 


f 0000 2 EQU' 



TBA 

PC0002 

Getout of 'DO' group. 



C00Q02 IBA 
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* 

Body of the ’IX) ' Group 

BRA C0Q002 Thege two instructions are 

generated when ’end’ of *D0' 
P00002 EQU * Group is recognised. 

« 

Input and Output PgrmatB for Stream Grieved Data 
fjcanamisslon in ‘S'L JOAA i 

List Directed jnnut : 

Data in the input stream has one of the following general 

forms j 

a) +|- arithmetic constant, 

h) ' Character string constant. 

c) Bit string constant. 

d) +j- real constant +|- imaginary constant. 

An arithmetic constant may he fixed point (integer) or floating 
point constant and may have binary or decimal representation. 
Data in the data stream will he called soinrce and the variable 
to which the data is to he assigned will he called target. 

Data items in the stream must he separated by a blank or 
by a comma, The separator may be preceded and/or followed by 
an arbitrary number of blanks, A null field in the stream is 
indicated either by the very first non-blank' character in the 
stream being a conma or by two adjacent commas separated by an 
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arbitrary member of blanks. Ihe transmission of the list 
directed input is terminated by expiration of the data list or 
the end-of-data or end-of-file condition. In the latter case, 
the processing of the job will also be terminated. 

If the data is a character string constant, the surround- 
ing quotation marks are deleted and double quotation marks 
within the string are treated as single quotation marks. Charac- 
ter strings may not have a length greater than 128. Bit strings 
may not have a length greater than 36. 

If data is an arithmetic constant or a complex constant, 
it is converted to coded arithmetic form. Ihe target attributes 
are then examined and source conversion if necessarir* is per* 
formed. It is then assigned to the target. The accompanying 
table gives the possible conversions. 

list Birected Output : 

The value of the scalar variable is converted to charac- 
ter representation and transmitted to the' data stream. Two 
blanks always precede the transmission of a data value. If the 
length of a n-umerie data item is longer than the number of 
character positions remaining in the current line (record), 
the entire item is outputted starting at the beginning of the 
next record. Character strings whose length exceeds the size 
of a record will be split between two or more records. No blanks 
will be inserted when such an item is continued on the next line ^ 
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All fixed point arithmetic data items are outputted in 
I(11) format. All floating point arithmetic data items are 
printed in E( 14, 8) format. All complex data items are printed 
in 2E(14,8) format. Eor character and hit strings, the foimat 
is set according to their present length. 

Eata-Directed Inuut : 

The data directed data in the input stream has the follow- 
ing foimat: ^ • 

Scalar-variahle = Constant scalar variable = 

Constan;;^ $ 

Scalar variable may be subscripted name with optionally 
signed decimal integer constants for subscripts. . ' 

Each assignment may be separated by an arbitrary number 

f 

of blanks or a comma. 

The constant has the same format as in the case of 
list-directed input. 

The scalar variable names used on the left hand side of 
the '=V sign must be one of the names used in the data list 

used in the corresponding GET DATA statement. The order in 

/ 

which names appear in the data-list need not be same as the 
order in which they appear in the stream nor is it necessary 
for all the names in the data list to appear in the data 


stream. 
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The data list may not include major or minor struotizres. 
Structure elements may be used, however, provided the number of 
characters forming the base element including the dot between 
qualifying names, does not exceed thirty. 



The general format for data directed output is the 
following; 

Scalar variable = Constant Scalar variable 

] 6 )= ^ constant ... 

If an array occ;irs in the data list as a data element, then the 
elements with their subscripts are transmitted in row major 
order. 

Each assigimient is separated by two blanks. The constant 
has the same format as in the’ case of list- directed output. 

Structures and 'DO' repetitive groups are not allowed, . 

The length of the data field in both input and output is 
a function of the length of the identifier and that of the 
associated data constant. If, during output transmission, the 
length of the data field exceeds the number of remaining charac- 
ter positions in the record (line) then .a new line is started 
and the data item is then outputted on this line. 

Edit Directed Input and Output ; 

The edit directed I/O format is governed by the- associated 
format specifications whose syntax and semantics are given in the 
chapter on 'Analysis of Eormat Statements'. 
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Output 
Input ; 


of Eormat Q-enerator ; 


(5((M)(X(10) , COLUMNCM), C(E(iO,M) ,E(M s<eXp>)) 
(M)I(M), ’RESULT’, A(<exp» , B(3) , 50( 12) ) ) ) . 

The MAP eode generated will he ae follows: 


AXT 

5,1 

TSL 

lOHLP, 

EXTEEE 

lOHLP, 

CLA* 

BS, 02+000100 

AXT 

0,1 

TMI 

*+2 

PAX 

,1 

TSL 

LOHLP, 

Tax 

lOHXC. ,4 

1G 

PZE 

EXTERN 

lOHXO. 

OLA* ■ ■ 

BS, 02+000 100 

TPL 


ZAC 


STA 

*+2 

TSX 

lOHGC. ,4 

' PZE 

** 

EXTERN 

lonoc. 

CLA* 

BS, 02+000 100 

AXT 

0,4 

TMI 

*+2 

PXA 

>4 

SXD 

*+2,4 

TSX 

lOHEC. ,4 

PZE 

10,,** 

EXTERN 

lOHEC. 

I arithmetic 

I ■ 

coding 

CLA* 

BS. 02+000 100 

AXT 

0,1 

TMI 

*+2 

PAX 

,1 

SXA 

*+2,1 

TSX 

lOH^. 

L00001 PZE 


EXTERN 

lOHEC. 
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CIA* 

BS. 02+000 100 

AXT 

0,2 

TMI ■ 

*+2 

PAX 

,2 

CIA* 

B§. 02+000100 

TPL 

*+2 

ZAC 


SIA 

*+2 

TSX 

lOHIC. ,4 

PZE 

** 

EXTEM 

lOHIC. ,4 

PZE 

** 

EXIEBII 

^ IQHIC, 

PZE 


ISX 

IOHHC.,4 

PZE 

■ 6 

BOI 

' IjEESBlI 

EXIEM 

lOHHO. 

[arithmetic 

-codiiig”] 

ISX 

lOIIAC* ,4 

100002 PZE 


EXPERT 

lomo. 

ISX 

lOHBC. ,4 

PZE 

5 

EXIEEI 

XOHBO. 

AXP 

5”, 2 

PSX 

I0H0C,,4 

PZE 

12 

EXIERI'I 

lOHOC. 

TSL 

lORRP. 

EXTEBE' 

lOHRP, 

TSL 

lOHEP. 

IRA 

lOHElE. 
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Run Time Stack Itoagement Routines (RTSm) : 
a. List of RTSMR: 


1. 

Open a begin block 

R. OPBG 

2. 

Invoke a procedure block 

R.OPPR 

3. 

lerrinate a block by 'EEL* 



Statement 

CLSEND 

4, 

Terminate a block by RETURN 



statement. 

CLPRTfl] 

5. 

Terminate a block by RETURN 



statement and return .a value. 

CLPRET 

6 . 

GOTO statement with block 



closing, 

GTRLOK. 


To . Link Oell Eoimat ; 



L.P.P. 


ret addr 


W.A.P. 

1 

^ Saved 


DOSPHO 

//> 

Calling 
block no. 


vtoere , , 

P.P.P, (Present Procedure Pointer) J This is a one word 
area whicL contains the address of tbe first of the 3 locations 
which constitute the linkage cell of the block which is being 
currently executed. 
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L.P.P. (last Procedure Pointer): This is the value of 
the P.P.P. when the invocation of the present hlocl!: vvas made. 

W.A.P. ( Work Area Pointer); It is the address of the 
first free location after arrays and character variables (Second 
order storage area) have been allocated memory space. This 
denotes the address of the first free cell available for assign- 
ing temporaries requiring more than 2 words. 

P.O.P. (Pree Cell Pointer); It is the address of the 
first free location alter multiword temporaries have been 
assigned. , 

^ Saved; It is the number of first order locations 
saved, if any, when the present block was invoked, 

ret (return address) : It is the address of the 

calling point, if the invoked block is a PROCEDUEE block., It is 
zero for a BEG- III block. The retirra pointer is needed at the 
time of tennjjiating the block. 

Galling block no.: It is the serial nimiber of the 
calling block. 

DOSRITO: It is the serial number of the innermost DO- 
group open at the calling point, if any. 

PSRhO.: Global loccxtion which contains the serial 
nixmber of the innermost block open. 
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Notation: 


(INZCEL, i) i=0,1,2 represents the (i+l)-st wort of 

the linkage cell, 

A is used to represent the address portion. 

D is used to represent the decrement portion, 

INKCEl is same as E.C.P. 

1, R.OPB&; 


Galling sequence ; 


where , 


AXT blkopn,! 
TSX R. OPEN, 4 


•hlkopn' is the block number of the block to be opened. 

4 ■ - ' , ' 

Actions laken : 


BIiKOPN index register ’ 1 ' 

I)(BNKCEI.,0) <-P.P.P. 

A(I1JKCE1,0) ^0 
P.P.P. ^E.C.P. 

E.C.P. <-E,C.P.+3 


D(1NKCE1,1) <-¥.A.P. 

A(IiNECEE,l) <^-0 
D(MK0EE,2) <~DOSENO 
A(BNK0Eii,2) ^PgRNO. 

PSRNO. <~BPE0PN 

(Some of the pointers are being saved uimecessarily 
because it shares the routijie with R.OPPR. ) 

Return of Controls ■ 

' , 

ERA , 1,4 
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2. R.OPPR ; 

Galling Beauence ; 

ISX R.OPPR,4 
TXI "-H3,,arglBt 
PZB PHWadd 
PZE tempadjj mnrtyp 

for procedure ip'vocation ty a OAIil siatgnlent “tilie las^ word is 
PZS 0 

wbere, 

’arglBt‘ is iRe addr^ea of ‘fch© argufflapli liBi, if any. 
•PHiadd* is "bile address of the procedure header word, 
•tempad*^ is the address of the result receiving temporaij 
‘’iinrtyp ' is the niindr type of the result returned. 

Actions Taken i 

1. Extract the auiilher of the block to he opened from the 
PHW and, store it in BIKOPR. 

2. Detemine if any saving is to he done. 

BS^hlkopn)*- EE.<psrno> >^ 0 =^no saving 

I , 

<0 ■^Eaving is to he done 
If saving is done, update S. A. P. accordingly. 

saved = jBS.<hlkopih -EE.<psrno> | 

S.A.P. " ^S.A.P. + 'T^Saved. 

3. D(MKCE1,0) '<-P.P.P. 

A(IiM:CEL, 0) ‘«e-XR4'’' • Gontents of Index 

Register 4. 
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p.p.p. <e-p,c,p* 

P,O.P. «-P,,0.P.+5 

D(liMOBI-?l) -eW.A.P. 

D(LIK0EL,1) Saved if aaviKg done, 

<"'0 if no saving is done. 

P(MICCEL,2) ^-DOSrniO 
A(IHK0EL,2) ^-PSKNO. 

4, All DO-groups open at OALIi point, if any, are closed, 

5, 330 prologue initialisation, if ‘prglst’ 0, 

6, PSENO, <-BIiKOPN • 

Be turn of Oontrol ; 

CIA* 2,4 
SIA #+1 
IHA #*' 

3, OlSEin) ; 

Galling Sequence ? 

ISX CISBED,4 
Act ions Taken ; 

1. . If sign of (MKGBli,0) is -ve , it implies the .main pro- 

cedure is being closed. Program is terminated. 

2. A(IiI^ICCEL,0) = 0 terminate a BEGIE bloclc. 

^ 0 terminate a PROCEPUEB block 

2.1 Eor terminating a BEGIN block: . 

(Entry point OIEEDl) 

<^P,P,P. 

'P^P.P, j^p^f®ICEliyb) 
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W.A.P. 

D(LNZ0E1,1) 

PSRUO.’ 

A(LMKGE1,2) 

DOSRUO 

i— D(MKCE1,2) 

E-eturn : 

TEA 

1,4 


2.2 Fox Derff-iriating a PROCEDURE, block: 

(Entry point CiauD.) 

I 

a. A(1NK0EL,1) 0, :.-=$> no restoring to be done 

^ 0 —/ restoring first order storage area 
to be done. 

Start address of the area to be restored is BS.^SRUO^ 

It is detemined from the storage table. The restoration starts 
from S.A.P, and goes to S.A.P. - ^ saved. 

At the end of restoration, npdate S.A.P, as 
S.A.P. S.A.P. ~ saved 

b. DCSRUO D(IiNK0El,'?.) 

If DOSRIC ^ 0, the DO-groups that were closed at the 
time of invoking this proced-ure are opened once again i.e. their 
do-stattLs bi'cs are put' OU. 

XR 4 <^~A(I*NKCED,0) 

If (3,4) = 0, no result is expected 

■f 0, result is expected, hence error. 


o. 







Eaturn} 


4-v CLPRWRi 



«-P,P,P» 

P,i»P. 




PSRIO. 

^4(BIKCEL,2) 

m ‘t#4 


: aequence: 


TSiC' 

01jPE1R,4 


Actions taken: 


LOOP QIA* 

PiP.P,' 

mi 

Error Irying to close the main 


■ " procedure by a RETURI statement 

.PAX 

,4 

TXH 

CI®3D. ,4,0 

AXI 

1-IiOOP,4 

IRA 

CIEEEl 


OIiElD, and CIElTDi are two entry points in the OIiElCD 
routine 5 which skip some of the unwanted code. It can he seen 
from the present scheme, that all the BEG-IN hlocks_;. those are 
open, also get closed. Ibis process is repeated till a procedure 
block invocation is obtained. 

5 . CEPERI ; 

Calling Sequence 

TSKf 'CIiPEE2;,4 

P2E tempadd, ,mnrtyp 
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а. First it determines the result receiving temporary, 
if any, and the minor type of result expected. Now it finds 
out whether any conversion is to he done. After doing the 
necessary conversion, valiie returned is assigned to result 
temporary. 

h. Now it merges with CIFRIR with the difference that 

error clause in 3*h gets nullified, 

б. G-TBLQK : 

Calling sequence 

TSX &1B10K,4- 

PZF label 

IZB shlno,, dhlno 

where , 

'shlno* is the source block number. 

‘dblno'is the destination block number. 

Actions : 

Close block by calling ClSBED routine at the CliEND 
entry point till the destination block number is obtained. 

, Returns 


IRA* 1 ,4 
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PKBE LIST : 

Pree aom in igeond paiij laai “beiK divided into 

six word cells. Phese cells are needed for multiword temporary 
storage “by a number of routines viz. expression processor, 

'BT lAKE’ option analysis routine, symbol table etc. To realize 
feconomy in storage space, a linked list is maintained from which 
ceils can be taken when needed and to which cells could "be 
returned when no more needed. This ensures that no cell is lost; 

Since symbol table makes maximum use of the free list, 
the size of a symbol table cell fixed the size of the attribute 
cell. 

The stack-discipline of the free list is last in first 
out (LIFO). A cell which is retuinned to the free list is added 
to one end of the free list. The cell which was last added would 
be the first to be given on a call for a new cell. 

Two pointers (PRCELl, LSOEHi) are maintained which store 
the address of the cells which is to go out first/to fwhlch the 
cell being retuimied would be chained and which is at the other 
end of the chain respectively. . Jji case the latter, ce.lA is taken, 
list , becomes empty.. * * . 

The format of the free list is shown in Fig. P-1.' 
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liSCELI 



Last cell. 

List Lecomes empty, 
if it^ is taken. 


frcell| 


b 


I 

< 




Eirst cell to Le given 
to the calling rontine 
(if no cell is added in 
between). 


Eig. P~T: Eree List 
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PL 704 4 Oom'piler Output for a PL/l Program : 


Let us conslier the following PL/I program for computing 
the factorial of an integer. 


MAIN; PROCEDURE OPTIONS (MAIN); 

/* RECURSIVE COMPUTATION OE PACTORIAL */ 

GET LIST (M) ; /* READ THE VALUE OE M */ 

PUT EDIT ((N, EACT(N) DO N = 1 TO M) ) 

(COLUMN (1) 'EACTORIAL 0E’I(4)'=’ 
E(U,8)); 

EACT: PROCEDURE (X) RETURNS (READ (10,1)) RECURSIVE; 
declare X EIXED (8) ; 

IE X = 1 THEN RETURNd.); 

/* DUIMY ELSE TO BE GENERATED */ 

RETURN (X* EACT (X-1)); 

END Mi IN; /* MULTIPLE CLOSURE */ 


The MAP code generated for this program is as follows; 


Eollowing code Is gsnsrated in tht second pass 


ilBMAP PI17044 
USE 
USE 
USE 
USE 
USE 
USE 

EXTERN 

USE 

START TSL 
LOOOOO*EQU 
L00001 EQU 
L00002 EQU 


BSS 
JUNK 
PROLOG 
NAME 
STATIC 
CODE 
R. INIT 
STATIC 
R.INIT 
= 1.0 
=1B1 
=1 


Common to every PL/I program. 


USE 

LOOOO5 VED 
L00011 VPD 
USE 

LOGO 10 EQU 
VED 
PZE 

LOGO 13 EQU 
LOGO 14 EQU 
100015 EQU 


JUNK 

03/ 1,1 5/000000, 03/0, 15/L00003 PHW for 
fc/2 , 15/L00010 ,fc/0 , 15/LOOOO7 PHW for 
PROLOG 

* Prolog list for EACT 

3/0 , i 5/BS . 0 2 +000000 , 6/1 , 6/7 , 6/5 
0 End of prologue list 

=0201400000000 Literal 1.0 

=0201400000000 Literal 1-.0 

=0000000000001 Literal 1 



Following code is generated in the third pass. 


100005 

EQU 

* 

Entry point for HAIN 


TSl 

DGL.01 



TEA 

ICE. 01 


101.01 

PZE 

** 

Closed procedure for declaratior! 


TEA* 

101.01 

of hloGlc MAIN. : 

ICE. 01 

EQU 

* 


100006 

EQU 

* 



USB 

JUNE 


S.ESM 

POE 

0 

Pile status block for system 


BSS 

6 

input file 


PZE 

0 



USE 

GOIE 



TSX 

.I0SUP,4 

Call to I/O supervisor 


PZE 

S.PBIN, ., S 

.PSBN 


EXTERU 

.lOSUP 



ISX 

&-.lIST,4 

Call to list directed inputting 




routine . 


PZE 

BS. 01+000000 'address of M. 


EXTERU 

G-.IIST 



USE, 

JUNK 


S.FSBU 

PZE 

0 

Pile status block for system 


BSS 

6 

output 


PZE 

0 



USE 

COIE 



ISX 

.I0SDP,4 

Call to I/O Supervisor 


PON 

S.EBOU , ,S 

.PSBU 


TRA 

MOOOOO 

Go and perform format linkage 

M00001 

EQU 

* 



TEA 

M00003 

Goto coding of '10'. 

M00004 

TRA 

** 

lomain of '10* starts. 


AXT 

BS.01+000001 , 1 


PXA 

,1 



TSl 

HNIIO. 

Output N 


EXTERN 

HNIIO. 



USE 

JUNK 


100017 

EQU 

* 

Argument list for function callEAci 


PZE 

BS.01+000001 


USE 

COIB 



EXTERN 

R.OPPR 



TSX 

R.0PPR,4 

Call to function PACT 


TXI 

*+3,, 100017 


PZE 

100011 



PZE 

TS. 01 +000000, ,2 


AXT 

TS. 01 +000000,1 


PXA 

,1 



TSl 

HNIIO. 

Output PACT(N) 


TRA 

100004 

Eng of Domain of 'DO' 





MOOOO 3 liQU * Coding of 'DO*. 

GLi =1 



STO 

BS. 01 +000001 


CIA 

BS. 01 +000000 


STO 

TS. 01+000001 


CIA 

=1 


STO 

TS. 01+000002 

xooooo 

CIA 

TS. 01+000001 


SUB 

BS.O 1+000001 


TMI 

YOOOOO 


TSI 

M00004 


CIA 

BS. 01 +000001 


ADD 

TS.O 1+000002 


STO 

BS.O 1+000001 


TEA 

xooooo 

YOOOOO 

EQU 

* 


TEA 

M00002 

MOOOOO 

EQU 

* 


TSX 

TSHIO . ,4 


FZE 

MOOOO 5 


TEA 

M00001 


EXTEEII 

TSHIO, 

MOOOO 5 

EQU 

+■ 


TSX 

IOHCC.,4 


PZE 

1 


EXTERN 

lOHCC. 


TSX 

lOHHC . ,4 


PZE 

13 


BCI 

% FACTORIAL OF 


EXTERN 

lOHHC. 


TSX 

IOHIC.,4 


PZE 

4 


EXTERN 

lOHIC. 


TSX 

lOHHC . ,4 


PZE 

1 


BCI 

1 ,= 


TSX 

lOHEC. ,4 


PZE 

H,8 


EXTERl^ 

lOHEC. 


TRA 

lOHEF. 


EXTERN 

lOHBF. 

M00002 

EQU 

* 


TEA 

END. 02 

LOOOO 7 

EQU 

* 


TSI 

DCI,02 


TR/i 

DGE.02 

DCL.02 

PZE 

** 


TE/L* 

DGI*02 

DCE.02 EQU 

* 

LOCO 12 

EQU 

* 


CIA* 

BS. 024000000 


Initialise index 

Save upper limit. 

Sfe.ve increment. 
Check if index has 
crossed limit. 

Go out of ’DC loop 
Transfer to Domain 


Dormt list starts. 


Format list ends. 


Tra around procedure FACT 
Entry point for FACT. 


Closed procedure for 
declarations of FACT. 


Coding for IF statement 
starts. 
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INTFLT MkORO 

FAD 

EEDM 

IDDFL’I' 

CAS 

TEA 

TEA 

TEA 

S00016 FQU 
FOOD 16 IQU 
S.C001 EQU 

mFRE 

TSX 

P2B 

TEii. 

F.0001 EQU 
E.0001 ECU 
CM* 
SUB 
STO 
USE 

LOCO 20 EQU 

P2E 
■ USE 
TSX 
TXI 
PZE 
PZE 
CLA* 
INTFLT 
■ STO 
LDQ 
Flip 
STO 
TSX 
PZE 

EXTEEU 

TSX 

EHD.02 EQU 
TSX 

EED.OI EQU 


=0233000000000 

=0233000000000 


100013 

F00016 

S00016 

F00016 

S.0001 

F.0001 

* 

GIPEET 
CLPBBT,4 
L00014, ,2 
E.0001 
* 

BS. 02+000000 
L00015 

TS, 02+000000 
JDHK 
* 


TS. 02+000000 
CODE 

E.0PPR,4 
*+3, ,D00020 
D00011 

TS. 02+000000,, 2 
BS. 02+000000 

TS. 02+000001 
TS. 02+000001 
TS.02+000000 
TS. 024000000 
CIiPERT,4 
TS. 02+000000, ,2 
CDSEKD 
CDSEND,4 
* 

CLSEED,4 

* 


Macro for integer 
to floating point 
conversion 


literal 1,0 


Code for EETUEN (l.) 
literal 1 . 


literal 1 


Argment list for fnnctij 
call FACT (X-1). 


Call to FACT 


Code for RETUEE(X*FACT(X-j 

EBD for FACT 
EKD for Mil IF 
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following code is generated 



mmj 

BBPDTB 

BIPBTB EQU 

* 


OCl 

000000000000 


OCT 

000000000000 


OCT 

000000000001 


ENTRY 

STGTAB 

STQULB 

EQU 

* 


PZE 

BE. 00, , BS.OO 


BZE 

BE. 01,, BS.01 


PZE 

BE.02, ,BS.02 

AS. 00 

EQU 

■BS. 00+000000 

TS.OO 

EQU 

AS. 00+000000 

:BE.OO 

EQU 

TS. 00+000000 

BS.01 

EQU 

BE. 00 

AS. 01 

EQU 

BS.01 +000002 

IS. 01 

EQU 

AS. 01 +000000 

BE. 01 

EQU 

TS. 01 +000003 

ES.02 

EQU 

BE. 01 

AS. 02 

EQU 

BS, 02+000001 

1S.02 

EQU 

AS,02+000000 

BE. 02 

EQU 

TS. 02+000002 

BS.OO 

EQU 

* 


BSS 

000008 


ENTRY 

BOTBL 

DOTBL 

EQU 

* 


END 

START 


at the end of third pass. 

Block predecessor table 

Block storage table 


Bo predecessor table start 
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Ac'ti’va'fcing a 'BEGIN' ’block/procedure Block: 

A BEGIN Block is said to Be activated wBen contro* 
passes througB the BEGIN statement for the Block. ^ 
A procedure Block is said to Be activated when 
procedure is invoked at any one of its entry poini 

Asynchronous Operations: 

See Synchronous operations. 

AttriBute: An attriBute is a descriptive property associated 

with a name to descriBe a characteristic of a 
data item or file . ■ which the name may represent.) 

Base Element: See structxrre. 

Begin Block: See Block. 

Block: A' Block is a collection of statements that defines| 

the program region -• or scope throughout which an. 
identifier is estaBlished as a name. 

A BEGIN Block can Be activated only By the .normal 
seq_uential flow of the pro/nram and can Be us^f^B 
wherever a statement can Be used. 

A procedure Block can only Be activated remotely 
By OAll statements or By function references. 

Body of a Bio ck:lhe Body of a Block is defined as the. collection 

of statements which appear lexicographically 
Between, the heading statement and the trailing 
statement of the Block,. 

Compile, lime: This is the period during which a program is 

■Being compiled. 

Compile lime Ifeta laBle: 

Ihis is a fixed taBle of size 500 words used for 
storing data ' elements appearing in data directed 
I/O. 
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Data List: A data list is a list of data elements appearing 

in an I/O statement. 

Data Set: A collection of data external to the program 

constitutes a data set. 

Deactivating a Block: 

A. hlock is said to he deactivated when control 
is transferred to any one of the following 
statements (a) EKD (h) STOP (c) RBTURB (valid 
only in case of a procedure) , (d) GOTO statement 
whose destination is a point outside the block. 

DO Index: A sc’alar variable which is used for controlling 

the number of times the domain the ’DO* is to be 
executed is known as the 'DO' index. 

DO Parameter/Specification : 

A 'DO' specification is defined as 

TO expression-2 {bY expression- 3] 
expression -1 ' ; 7 

BY expression-3 expression-_^ 

[raiLE (expre ssion^y 

Domain of 'DO': This is the collection of statements which appear 

lexicographically between the 'DO' statement and 
the corresponding BID statement. 

Dynamic Descendence: 

If a block B is active, and another block B1 is 
activated from a point internal to block B (while 
B still remains active, then B1 is said to be the 
immediate dynamic descendent of B, 'If block B1 
has a immediate dynamic descendant in B2, then B2 
is said to be the dynamic descendent of B. 

Dynaiaic Encompassing: ■ 

If block B is a dynamic descendent of block A, 
then block A dynamically encompasses block B 
and block B is dynamically encompassed, by A, 

See Prolog^. 


Epilogue : 
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Expression: An expression is an algorithm used for computing 

a va lue . 

Scalar Expression: A scalar expression is one tha| 

has a scalar value. ‘ 

Aggregate Expression: An aggregate expression is | 

an expression involving one ox{ 
more aggregate operands i.e. 
structure or array. 

Execution Time: This is the period during •which the control is 

with a) the object code generated by the compiler 
and b) the supporting library routines. 

First Order Storage Area : 

This is the area where all scalar variables, both 
STATIC and AUTOMATIC , ari?ay header word (s) , 
dope vector words and single and double word 
temporaries. 

This is the number of times a format item is to be 
repeated. 

A binary search table of all the keywords (or 
pseudo reserved words) , built in procedure names 
and pseudo variable names. 

Format Explicltor: 

The entity defines the field width in ease of 
the following: A-, B-, I-,, X-, 0-, COlUMU-j 
LINE-, and SKIP- foimat items. And in case of 
B- and E- format items, the first explicitor 
defines the field width and the second explicitor 
defines the nimiber of places after the decimal 
point. 

Group Count: It is the number of times a group of format 

items have to be repeated. 

Implementation 'Dependency: 

There are certain aspects of a language which 
cannot be rigorously defined without recourse 
to the characteristics of the machine on which 
the language 'is to be implemented. - Such features 
are said tg l>e implementation dependent. 


Field Count: 
Fixed Table ; 



iMnediate Predecessor: 
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See predecessor 

Iimnediate Dynamic Descendant; 

See Dynamic Descendant., 

Linear Space; This is a concept wherein the mapping between the 

memory spa.ce an» the name space is the identity .. 
function. The addresses given by the loader in 
"^^he name space are the same -as in the memory space 

Lexical Unit; The progran source text is broken up into units 

having uniq ’‘.3 codes recognisable by the syntax 
analysing routines. Such units are called 
lexical units. 

1 ‘ 3 ’Ss: A pass is defined as a scan through the text of 

the program. The text may be the source text or 
the text prepared by some other pass. During the 
scan, the text is modified, and a new text is 
produced. 

Partitioning of Memory; 

In this report, partitioning of memoiry refers 
to software division of available core space. 

In PL 7044, the core space has been divided into 
the following; Nucleus and IOCS, Pirst Order 
Storage, Second Order Storage, Third Order , 

Storage, Object Code, Library Routines, and I/O 
Buffer Area . 

Predecessor; 

A is said to be the predecessor of B if B appears 
lexicographically between the heading statement 
and the trailing statement of A. If in addition, 

A is . , closest to B (lexicogiaphically) then A 
is said to be, the immediate predecessor of B. 

Primary entry Point; 

A primary entry , point is ; that enfry point identified! 
by the left’iwst entry on the PROCEDURE Statement. I 
All other names for the procedure identify the 
secondary points. 
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Prologue: On entering a block certain initial actions are 

performed. These initial actions constitute the 
prologue. Actions that are performed when a block 
is deactivated constitute the epilogue. 

Pseudo Variables: . 

In general, pseudo variable are built-in functions 
that can appear wherever other variables can * 

appear in order to receive values. However, in 
PI 7044 the use of pseudo ..ivariables is much more, 
restriotivG. 

Recursion 5 Recursion is said to have taken place when a 

procedure is reactivated while it is still active. 

Run Time Stack: The second and third order storage share the free 

core available after loading the object program 
in what may be termed a double ended stack. This 
stack is referred to as the run time stack. 

Secondary Entry Point: 

See primary entry point. 

Second Order Storage: 

It is the storage space occupied by the elements 
of an array, character scalar variables, and 
m^ultiword (more than 2 v/ords) temporaries. 

Structure: A structure is a hierarchical collection of 

scalar variables, arrays and structures. The 
outer most structure is called the major structure. 
All contained structures are called minor structure! 

: I 

Pass Element: Elements of structures which are 

themselves not structures are known 
as base elementi. 

i^ynchronous Operation: 

A program in which the execution of statements 
proceeds ..serially in time is said to be executed 
synichronously. 

"When several statements are executed in parallel 
in time, then the operation is said to be ■ 
asynchronous. 
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TA.SK: 


A task is an ider^tifiable execution of a set 
of instructions and exists only during the 
execution of the set of instructions. Note that 
TASK is not a set of instructions hut the execu 
tion of the instructions . 
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